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ABSTRACT 

A reduction in agricultural activity .in a rural 
farming community will resul':: in reduced activity in almost every 
sector of the local economy. The result may be measured in loss of 
employment and income. This report provides a method to estimate such 
economic impacts with a' minimum of data collection and manipulation. 
Most of the input data required are available from the Census of 
Agriculture and the Bureau of Economic Analysis. The model takes the 
practitioner's estimates of changes in agricultural production and 
estimates the change in agricultural sales. Then, the predicted 
change in total sales generates estimates of changes in total county 
employment and county income. This much is possible by simply 
estimating changes in proc3luction of key crops. Inclusion of estimated 
changes for other basic sectors can produce even more meaningful 
estimates. The model's shortcomings are its dependence on 
cross-sectional data, and the fact that reliability is threatened if 
agricultural commodity price levels change significantly or if the 
county under investigation deviates greatly in crops, livestock, 
employment, or population size from the 48 Texas counties used as a 
proxy for Southern rural areas in the model's development. This 
report contains 11 references, statistical equations, the computer 
repo t format, instruct' "jns for using the interactive computer 
program, and an example of model application. Appendices making up 
the bulk of the report include program codes for IBM and Apple 
Maclntcsn versions and examples of single entry and range entry 
reports. (SV) 
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Impact of the Changing Farm Economy 
on Rural Communities 



Evaluation of Interrelationships Between Agriculture 
and the Economy of Rural Communities 



Impacts of agricultural structure and economic ac- 
tivity on ru ral communities will likely emerge as a major 
area of policy decisions in the future. Agriculture is an 
important industry providing the economic base for 
many rural communities. Agriculture provides income 
and employment both directly and indirectly for millions 
of rural residents. An adequate tax base is also sup- 
ported through this economic activity which allows 
communities to provide required services to all resi- 
dents. As agriculture continues through the current 
phase of transition, all residents and communities will 
be affected. There will be increasing pressures on rural 
communities to nriaintain services as funding and 
perhaps population decrease. Action programs for farm 
families and attraction of alternative economic activi- 
ties may be important components of this transition. 
Continued structural change in agriculture, reduction 
in famfi program benefits and increased emphasis on 
vertical integration in procurement of agr'^^ultural inputs 
suggest that rural agricultural communities will face 
serious economic adjustment problems in the future. 

It is important to understand the linkages between 
agriculture and the surrounding communities. Changes 
in the agricultural cropping pattern for a region nay 
directly affect agribusiness firms, transportation, 
processing and marketing firms in the surrounding area. 
Local retail trade and services may also be impacted, 
either directly or indirectly by changes in the agricul- 
tural industry. These changes are then carried through- 
out the entire regional economy-particularly in the area 
that is highly dependent on agriculture as an econom- 
ic base. However, it is evident that the influence of 
agriculture in the overall support base of rural com- 
munities is declining in importance. Increasingly the 
economic base of rural communities is changing to a 
composition consisting of manufacturing, small busi- 
nesses and government agencies and transfer 
payments. In nfiany cases, this has resulted in part-time 
farming operations in which the operators seek off-farm 
employment. 

Finally it should be noted that the linkages between 
agriculture and communities flow in two directions. First, 
farmers buy supplies and market products through lo- 
cal community businesses. Second, many farmers de- 
pend on off-farm income to supplement total family 



income. In general, a strong local economy provides 
more opportunities for farm families to supplement their 
income and remain In the industry. Because of these 
two-way linkages between farm and non-farm onom- 
ic activities, a compounding economic, effect can oc- 
cur when an industry like agricuitu re either expands or 
contracts significantly and suddenly 

Objective 

This research sought to quantify the interrelationships 
among these forces on rural communities. Models de- 
veloped to quantify the impacts can be used to analyze 
alternative policies to aid the adjustment process result- 
ing from farm program changes or other exogeneous 
shocks to the local community Thus, tho primary ob- 
jective of this study was to develop the capability to 
quantitatively analyze the impacts of changes in agricul- 
tural activity on the economy of rural communities. 

Data 

As a proxy for rural communities throughout the 
South, sixty Texas counties were selected for analysis. 
The sixty were selected as rural, agricultural counties 
on the criteria that 20 percen/ or more of county 
revenues were derived from agriculture. These coun- 
ties were expected to have many characteristics in 
common with counties across the South. After initia- 
tion of the analysis, tweK j counties were deleted from 
the data set because of unique features associated with 
each, such as little or no crop production. Most of these 
counties are located in West Texas. Thus, the analysis 
was based on forty-eight counties that appeared to be 
typical of other Southern counties with significant 
agricultural activity as a base. The counties are li^ted 
in Appendix A. 

In an attempt to develop analyses that would be as 
widely useful as possible throughout tha South, data 
sources were sought that would be readily available to 
persons such as public officials, extension agents and 
researchers wishing to employ the results of this study. 
The Census of Agriculture, County Business Patterns 
and the Bureau of Economic Analysis' Pktrsonai Income 
by Major Source and Major Industry and Total Full-Time 
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and Part-Time Employment, were found to be the 
sources that most nearly met the criteria. Milk produc- 
tion figures were found to be available only from the 
Texas Department of Agriculture's Crop and Livestock 
Reporting Service publication Agricultural Statistics. In 
the final analysis, the Bureau of Economic Analysis 
(8EA) employment data was relied upon, rather than 
that found in County Business Patterns. Data from other 
agricultural and forestry publications were analyzed but 
eventually deleted from the analysis because they could 
not be reproduced by potential model users in the 
South. For example, forestry data are not reported in 
a form that lends itself to use without considerable 
manipulation and estimation. Due to state budget cuts, 
the Texas Department of Agriculture reports are no 
longer being published, but seme of the data is avail- 
able upon request. Similar changes are occurring in 
other Southern states. Hence, most of the input data 
required to use the estimated models is available from 
the Census of Agriculture and SEA. 

The Census of Agriculture provides data by county 
on number of farms, cropped acres. Irrigated acres, 
pasture acres, livestock inventories, harvested acres by 
crop and livestock and crop sales. The SEA data pro- 
vides employment and income data by county and sec- 
tor. Since the Census of Agriculture is published only 
once every five years, 1982 data were used throughout 
the study. 

Model Estimation 

A recursive system of nine ordinary least squares 
equations was hypothesized based upon the perceived 
linkages among crops planted, livestock inventories, 
crops harvested, agricultural sales, number of farms, 
number of farmers, farm employment, total employ- 
ment and finally, total county income. The data restric- 
tions ""csulted in a more concise set of models. A set 
of five equations, rather than the original nine, were 
developed. Further statistical tests showed that one of 
these was of marginal significance and when used in 
conjunction with the other equations tended to g'wn poor 
results. Finally, three equations emerged that proved 
to be relevant and meaningful tor predicting total agricul- 
tural sales, total county employment and total county 
income. 

As an offshoot of these three, another regression 
equation provided a method to predict number of farm 
proprietors. First, consider the three primary hypothe- 
sizeo relationship^. 

1. Total Agri, Sales = f (Harvested acres of cotton 
Harvested acres of corn for grain 
Harvested acres of sorghum for grain 
Harvested acres of soybeans 
Harvested acres of hay 
Harvested acres of wheat 
Number of cattle sold 
Number of poultry sold 
Pounds of milk produced) 



2. Total Co. Employment = f (Agricultural sales 

Non-farm proprietors 
Manufacturing employment 
Government employment) 

3. Total County Income = f (County employment) 

As a recursive model, these three linear regression 
models work in concert. The agricultur^ sales model 
employs six crop and three livestock categories to es- 
timate total agriculture sales. Total agricultural sales, 
nonfarm proprietors, manufacturing employment and 
government sector employment were discovered to be 
the most significant variables for estimating total local 
employment. A close relationship was then found to ex- 
ist between employment and income. The first two 
regression equations were corrected for heter- 
oscedasticity using the Park-Glejser test (Pindyck and 
Rubinfeld). The third, being curvilinear could not be ad- 
justed using this tc^chnique. The three linear regression 
models were estimated as follows: 

1. TS = f (CO + POL + ML + ON + SG + SB + HAY + CT 
+ WH) 

TS = 06262925 (CO) + Oj0016495 (POL) + 0.2164566 (ML) 
Prob> T (0XXX)1) (OOOOl) (00001) 

+ 05873214 (CN) + 0.2742663 (SG) + 0.1482326 (SB) 
(00001) (0O001) (00085) 

- 0393436 (HAY) + 0j0912748 (CD + 0j0148500 (WH) 
(00046) (0O001) (0J5210 



R-SQUARE = 0J9968 



N ^ 48 



^vhere: TS = total agricultural sales (SljOOO) 
CO = number of cattle sokJ 
POL = number of poultry sold 
ML = pounds of milk sokj 
CN = acres of can han/esied 
SG = acres of sorghum harvested 
SB = acres of soybeans harvested 
HAY = acres of hay harvested 
Cr = acres of cotton harvested 
WH = acres of wheat harvested 



The "total sales" equation simply says that for this 
sample of counties, total agricultural sales can be effec- 
tively estimated using nine commodities. "Total sales" are 
in thousands of dollars. For each of the nine commodi- 
ties except wheat, the coefficients are statistically signifi- 
cant at the 5% level of significance as measured by the 
t-test. Acres of harvested wheat was included, despite its 
lack of significance, because many counties have 
significant amounts of wheat production, and to leave it 
out would overlook a major crop in these counties. 
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Curiously, acres of hay harvested has a negative effect 
on total sales. The reason for this result is not clear, and 
it would be unvy^ise to conclude that an increase in hay 
harvested, cetenc oaribus, would reduce tota' sales in the 
county. Most likely, ihe coefficient is serving to offset larg- 
er coefficients in other crop and livestock categories. For 
this reason, one should not attempt to estimate agricul- 
tural sales with this equation when the primary variable 
is harvested acres of hay. 

The crop with the largest per acre effect on sales was 
com. According to the model, for every harvested acre, 
$587 of sales was generated. Cattle sales had the lar- 
gest pe." unit impact on total sale?. The equation indicates 
that for every head (cow or calf) sold, $626 dollars was 
received in revenue. This is quite large and may be cap- 
turing revenues from hog and/or sheep sales in some 
counties. Certainly, total sales are a function of more than 
just these nine items. Therefore, it is possible that coeffi- 
cients on the nine commodities will be larger than we 
might otherwise expect. It must be kept in mind that the 
goal was to reasonably estimate total sales with readily 
available data. Thus, selected key variables were em- 
ployed rather than all possible variable^. Data are not read- 
ily available for other variables that might have an 
explanatory relationship to total sales. 

2. PE = f (TS + MAN + GOV + NFP) 

TE =^ 2S7856 + 0j0O184176 (TS) + 1.032^18 (MAN) 
Pfob> T (00837) (00288) (00047) 

+ 4543177 (GOV) + 1.407255 (NFP) 
(00001) (00035) 

R-SQUARE = 0.9479 N = 48 

where: TE = total employniem 

TS = total agricultural sales ($1,000) 
MAN = number of manufacturing sea 

employees 
GOV = number of government sector 

employees 
NFP = number of non-farm proprietors 

The second equation is derived from the notion of 
mral community linkages and from economic base the- 
ory. Many of the presuppositions of export base theory 
are relevant here due to the agricultural base and the 
probable size of state and federal transfer payments in 
these study counties. The regression equation captures 
the most useful variables in predicting total county em- 
ployment. The farming sector is represented by the 
sales of principal commodities. Since the total sales da- 
ta was expressed in thousands, the equation can be 
interpreted as saying that for a $1,000,000 change in 
agricultural sales the change in total employment was 
1.84 people. This estimate tends to capture both direct 
and indirect effects. Although it had the lowest coeffi- 
cient, nnanufacturing employment was also found tobe 
a highly sigr^ificant employment sector. The coefficient 



indicates a very small multiplier effect on total employ- 
ment. The non-farm proprietors variable actually en- 
compasses ail sectors except the agriculture and 
government sectors. Among other things, it represents 
all the secondary sectors in natural resource base 
economies such as is found in these counties. One of 
the natural resource sectors, mining, was not found to 
be very useful in predicting total employment (given our 
goal of producing good estimates with minima! data). 

Finally, the government employment sector, v;hich in- 
duced federal, civilian and military, state and local 
government employees, was found to be very important 
in predicting total employment. The regression parameter, 
4.343177, suggests that for every government job, there 
are more than three other jobs created in the local econ- 
omies. By contrast, the non-fami proprietors coefficient 
IS only a third as large. Although caution must be exer- 
cised In comparing regression coefficients, and although 
It IS not valid to conclude that government jobs explain 
or are the direct cause of additional jobs, it is natural to 
ask why the coefficient is so large relative to the others. 
There are several factors that may be involved. 

One possible reason for the large coefficient on 
government employment would be that there are 
proportionately more government employees in theoe 
agricultural counties. However, this was not the case. 
Government employees in the lorty-eight sample coun- 
ties made up 14.8% of total employment, whereas 
statewide they made up j6.3% of the total. 

Another possibility is that public sector employment 
is more steady (less volatile) than other sectors. City 
hall, school teachers, county agents and other institu- 
tions carry-on despite variations in the local economy. 
Furthermore, since nnany of these jobs are based on 
state or national salary schedules, and rurai communi- 
ties usually have a lower cost of living, these jcbs are 
relatively high paying. Combine this with the fact that 
these communities have fewer higher level profession- 
al positions than urban areas, and the result is that 
government jobs are among the best in tho county. This 
reasoning explains why many people in small towns 
consider government jobs to be highly desirable. 

In addition to these arguments, analysis of th 3 sam- 
ple data revealed there was much \^ss variation among 
counties in the relative size of gover.i.Tient employment. 
Once again, this indicates the stability and consisten- 
cy cfthis sector, and helps explain the relatively large 
.'agression coefficient. 

3. Tbtlnc = f (TE) 

Totinc = 18.47682 (TE) -;- 0.000C000126313 (TE^) 
Prob> T (OOOOt) (00001) 

R-SQUARE = 09862 N = 48 

v/here: Totinc = Total County income 
TE = Total County Employment 



Finally, total county income can be expressed as a 
function of total employment. It was found that a cur- 
vilinear model provideu the best fit. This is logical since 
the larger the community the largei the number of doc- 
tors, lawyers and other higher paid professionals. The 
result is that total income rises at an increasing rate as 
total employment (and population) increases. 

The intercept or constant tenn was insignificant at the 
5% level and, therefore, excluded. The Intercept term 
was also excluded from the first equation due to lack 
of significance. 

A tangential reUionship which may De of interest is 

FPE = f (TS + Totfarms) 

FPE = OjOOO 1 737452 (TS) + 1.276869 (Toifarms) 
Pfob> T (01375) (00001) 

R-SQUARE = 0.9844 N = 48 

Where: FPE = number of farm proprietors 
TS « total agricultural sales ($i,OOOs) 
Totfarms =- total number of faims 

This equation specifies a relationship between the 
number of farm proprietors and two variables, total 
agricultural saie> and total farms. Certainly, it is 
reasonable to expect that a county with more sales and 
more famns will have more farm proprietors. In fact, the 
regression model shows a very close relationship be- 
tween number of proprietors and number of farms. The 
coefficient, 1.276869, indicates more proprietors than 
fantis. This does not seem logical, yet it is, given the 
data sources used. The Bureau of Economic Analysis 
included each partner in partner hip farms as a propri- 
etor. Also, a frrm was defined as any place from which 
$1,000 or more of agricultural products were sold or 
nonnally would have been sold during the census year. 
It is possible that some hobby farmers were counted 
as proprietors, but their property was not counted as 
a farm. 

Total agricultural sales is only significant in explain- 
ing total farm proprietors at the 13.75% level of sig- 
nificance. This is somewhat low, but we believe it to be 
useful in making the estimations. 

Interactive Jmpact Model 

The estimated equations that predict intracommu- 
nity linkages anriong sectors were integrated into an in- 
teractivi^ computer model to foster the use of the 
research findings. The program provides a menu- 
driven, questlon-and-answertype format. The program 
is written in Basic and runs on microcomputers. There 
are two versions; one for IBM and IBM compatibles 
(BASIC 3.0) and another for the Apple Macintosh (Z 
BASIC Macintosh version 4.00). A listing of the program 
codes is provided in Appendix B. 



if 

The model is designed to estimate changes in agjcul- 
tural sales, county employment and income based on 
predicted changes in harvested acres by crop, cattle 
Sold and employment changes in non-farm sectors. The 
estimated changes are provided for "single" input 
values or "ranges" of input values. For example, the 
user may estimate a change in cattle sold of 1,000 head 
or he may estimate the change in cattle sold to be in 
the range of 800 to 1 ,200. The model's output also pro- 
vides 95% confidence intervals for each of the esti- 
mates. The confidence intervals assume a normal 
distribution and that the mean square error is a satis 
factory indicator of variance. An example of a "single" 
input report is given in Appendix C and a "range" in- 
put report in Appendix D. 

The amount and accuracy of data provided by the 
user is of utmost importance, and the usefulness of the 
model's estimates are directly affected by the data. The 
data requirements consist primarily of estirriates for the 
upcoming year. The user should keep in mind that the 
estimates mado should be estimates of change (var- 
iation) from the average or norm for the county in 1982. 
They are: 

(1) Estimate of the change in harvested acres of each 
of the following crops: 

a. cotton 

b. corn for grain 

c. sorghum for grain 

d. soybeans 

e. hay 

f. wheat 

(2) Estimate of the change in the number of cattle 
to be sold. 

(3) Estimate of the change in the number of poultry 
to be sold. 

(4) Estimate of the ;;hange in pounds of milk 
produced. 

(5) Esti.Tiate of any change in the number of farms. 
(The result of consolidation or division of exist- 
ing farms.) 

(6) Estimate of any change in the number of non- 
farm proprietors. (The iesult of a change in the 
number of independent, non-farm businesses.) 

(7) Estimate of any change in the number of 
manufacturing employees. 

(8) Estimate of any change in the number of govern- 
ment employees. 

Most of this data may be obtained by the user in the 
locality in question. Knowledge of the local area plus 
the market for the various goods produced in the area 
is essential to beneficial use of the model. 

Users may sometimes have estimates of only a few 
of the items listed above. Regardless of whether data 
are limited or the user simply wants to estimate the ef- 
fects of changing only one or a few parameters, the 
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mcxJel will generate estimates based on the data sup- 
plied. Thus, the user need not worry about having es- 
timated values for every question before using the 
model. However, the user should keep In mind that in- 
complete input may result In erroneous sales, employ- 
ment and income estimates. 

Because the model does not include all crops, types 
of livestock and employment sectors, the model will be 
of less use in areas with significantly different mixes 
of crops, livestock and industry. For example, a county 
with relatively large hog production in relation toother 
agricultural commodities would have little use for the 
model since none of the counties used for model de- 
velopment has significant hog enterprises. 

Also, the model was built ba^ed on couniies deriv- 
ing 20% or more of revenues from agriculture. There 
are many communities in the South which are rural in 
nature but derive a'most a'l their income from non- 
agricultural enterprises such as manufacturing and min- 
ing. In that case, agricultural industry equations may 
be of litMe interest, but the final equations that relate 
the bas'c manufacturing and government industries to 
total county employment and income may be of interest. 

Furthennore, counties with populations above 25,000 
may not !)ave characteristics similarenough to the study 
counties. Although the study counties ranged in popu- 
lations below 1,000 to 86,000, the majority had popu- 
lations below 10,000 and only one had a population 
above 40,000. 

Clearly, another shortcoming of this model is its de- 
pendence on cross-sectional data. A time-series anal- 
ysis would have been preferred. However, the Census 
of Agriculture is taken at five year intervals. Thus, the 
relationships found to exist in 198r only have validity 
today if there have been no significant changes in 
agricultural commodity price levels. Substantial vari- 
ation in relative price levels would cause the equation 
coefficients to change. Thus, the coefficients would 
need to be re-estimated using current dat:; in order to 
make the model more reliable. 

In summary, the best results can be expected for 
counties with similar crop, livestock, employment and 
population size as the 48 study counties. Use of this 
mode< on counties which seriously deviate in crop and 
livestock mix should be subjected to further analysis. 

Using the Interactive Program 

To use the IBM version of the program, simply slip 
the diskette into the diskette drive and type 
"A6IMPAC1." This starts the program, and the user 
simply responds to questions and prompts thereafter. 
If, for any reason the user wants to terminate the pro- 
gram before reaching the end, simply hold down the 
"control" key and press the "break" key at the same 
time. Then type "system" to return to the microcom- 
puter's operat'.ig syste-^ This procedure can also be 
used if the user accidentally presses some combination 



Oi keys that leads to a "dead end" or does not allow 
the user to proceed. In most instances, if the user 
responds improperly, the computer program will re- 
mind the user of the proper type of response and will 
not continue until a proper response is given. 

To use the Apple version, the user simply slips in the 
diskette and selects the application called 
"AGIMPAC1.EXE." To exit the application the user sim- 
ply selects option 5 from the menu, if the user for some 
reason cannot continue or wishes to terminate work be- 
fore returning to the menu, Apple leaves very few op- 
tions. The user nan try holding down the "command" 
key and pressing the "." key at the same time. However, 
the only action which is sure to work is to turn off the 
computer then restart. This should not harm the pro- 
gram application but will cause the user to lose any 
work which has not been saved. 

The interactive program is designed to allow clarifi- 
cation of individual questions. To do this the user may 
ask for "help." It help is available for any question, there 
will be a statement on the screen which tells which key 
to press to gel help. Help will be available either by typ- 
ing an H or a 1. The program will tell you which one 
to use in a given situation. 

Also, the program is designed to always begin and 
end at the "menu." There are seven options available, 
and it is important to understand what each of the menu 
options is and will do for (he user. 

input Data 

This is the place to start with your first se. of data or 
perhaps a new set of data. The computer will ask you 
for estimates of 13 items including: 6 crop, 3 livestock, 
1 numt)er of famfis, and 3 employment questions. Again, 
help is available for each group of questions. The ques- 
tions are: 

"In the upcoming year, do you foresee an increase 
ordecrease(-) in (he number of harvestet. acres for any 
of these three crops? 

1. Cotton 

2. Corn for Grain 

3. Sorghum for Grain 

If so, enter the number corresponding to the crop for 
which you foresee a change. If not, simply hit the 
ENTER or RETURN key." 

When the user selects a number, the computer will 
resoond: "What is your estimated change in Harvest- 
ed Acres of 'crop'?" 

Then you continue with the next set of crops to con- 
sider. "In the upcoming year, do you foresee an Increase 
or decrease(-) in the number of harvested acres for any 
of these three crops? 

4. Soybeans 

5. Hay 

6. Wheat 

If so, enter the number corresponding to the crop for 
which you foresee a change. If not, stmply hit the 
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ENTER or RETURN key." 

When the user selects a number, the computer will 
respond: ''What is your estimated change in Harvest- 
ed Acres of 'crop'?" 

Next: 

"In the upcoming year, do you foresee an increase 
ordecrease(0 in the number of livestock sold in any of 
the following groups? 

7. Cattle 
a Poultry 

if so, enter the number corresponding to the type of 
livestock for which you see a change. If not, simply hit 
the ENTER or RETURN key." 

When the user selects a number, the computer will 
respond: "What is your estimated change in the num- 
ber of 'livestock' sold?" 

"9. Do you expect an increase or decrease(-) in the 
Pounds of Milk produced? If so, give your esti- 
mated change. If not, hit the ENTER or RETURN 
key." 

"10. Do you expect an increase or decrease(-) in the 
total number of Farms in your county? If so, give 
your estimate of the change. If not, simply hit the 
ENTER or RETURN key." 

"11. Do you expect to see an increase or decrease(-) 
in the number of Government Employees (local, 
state, or federal) in the county in the upcoming 
year? If so, give your estimate of the change. If 
not, hit the ENTER or RETURN key." 

" i2 Do you expect to see an increase or decrease^) 
in the number of Manufacturing Employees? If so, 
give your estimate of the change. If not, hit 
RETURN or ENTER." 

"13. Do you expect to see an incease or decrease(-) 
in the number of Non-farm Proprietors in the 
community? If so, give your estimate of the 
change. If not, hit RETURN or ENTER." 

It is important to remember that expected decreases 
be preceded by a negative sign. For instance, if you ex- 
pect the number of harvested acres of cotton to decline 
by 500 acres, enter -500. Similarly, when entering the 
estimates in the range format, enter the smallest nunrh 
ber first, whether or not it Is positive or negative. For 
an example, see Appendix D. 

;f you make a keystroke error, do not worry, you will 
have an opportunity to make corrections after you fin- 
ish all the questions. 



previous results. You may use option 2 as many times 
as you want or, if you prefer, you may go back to option 
1 and start over again. 

Store Data on the Diskette? 

Option 3 provides an f^asy way for you to store your 
inp-:t and estimates in a file Simply select "3" and then 
give a file name in response to the question. 

Recall Data Stored on Diskette 

Option 4 lets you recover a file stored under option 
3 so that you may reuse it. You simply respond to the 
question with the name of the file. This brings that file's 
data into the active, temporary memory. Then you can 
use option 2 to change it or, if no changes are needed, 
simply rerun it. 

Exit Program 

Selecting option 5 will take you out of the program 
and tack to the computer's operating system where you 
started. 

Input Actual Current Data 

Option 6 should only be selected after you have en- 
tered data in the "single" entry format. This option will 
not give meaningful results if you try to use st in con- 
junction with the "range" of inputs format. 

Option 6 is simply a supplement. It is not required 
in order to produce estimates. Compare Appendix E 
with Appendix C to see an example of the difference 
between the printed reports with and without option 6, 
respectively. As you can see, option 6 allows you to ex- 
hibit cun-ent levels of production and employment. Then 
it uscS the data entered in option one to shew esti- 
mated changes and estimated future totals. 

Files Directory 

Finally, option 7 will give a listing of all the files on 
your diskette. This option will be especially helpful 
should you forget the name under which you stored da- 
ta that you wish to retrieve. Several files will bo listed 
that you may not recognize. These are the files that run 
the program and should not be used. 



Change Data and Rerun Results 

This is the second menu option and allows the user 
to adjust input data and evaluate changes in estimates. 
If you have completed a "run" (already been through 
the set of questions) and have not exited the program, 
your data is sfill in the computer's temporary memory. 
Thus, you may use option 2 to change selected parts 
of the input, then see how these changes affect you- 



Model Application 
Case Example 

The following hypothetical example gives a general 
idea of how the study results might be usod and Inter- 
preted: 

County Y has a relatively large number of acres of 
highly erodible cropland which qualifies for the Con- 
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servation Reserve Program (CRP). Several farmers in 
the county are expected to qualify for the program. The 
total acreage estimated to be taken out of production 
IS 2,000 acres of wheat, 3,000 acres of sorghum and 
5,000 acres of corn. This will also result In a decline 
in the number of cattle sold since some of the land was 
grazed part of the year The total reduction in cattle and 
calves sold is estimated to be 250. From these basic 
changes in crop and livestock enterprises, the com- 
puter program projects a loss of $3,946,000 in gross 
agricultural sales. In addition, county employmern is 
reduced by seven jobs (primarily in the non- agricul- 
tural sector^j) and county income declines by an ad- 
ditional $134,000 or about $19,000 per lost job. These 
county employment and income losses reflect the 
estimated secondary economic impacts resulting from 
the acreage and livestock reductions due to changes 
in farm programs. The computer report format which 
follows shows other estimates produced by the com- 
puterized model including confidence intervals. Of 
course, the significance of these impacts depends on 
the relative size of the county in tern^s of employment 
and income. 



Summary and Conclusions 

Significant and lasting changes in the level of agricul- 
tural sales in an agricultural county has an impact on 
the level of employment and income in that county. The 
quantity and dollar value of agricultural sales are direct- 
ly affected by the crop acres harvested and number of 
animals and animal products niarketed. The crops and 
animals raised are directly affected by local, state and 
national market conditions, which in turn are affected 
by farm policy. Farm policies, such as the Conserva- 
tion Reserve Program (CRP), may result in substantial 
reductions in agricultural production and sates. 
Reduced production reduces the need for farm and 
ranch inputs such as labor, feed, seed, fuel and farm 
services. The reduction in inputs results in lov^r de- 
mand for farm labor and for employment in those sec- 
tors providing the Inputs. When this happens, indirect 
Impacts ripple through the local economy. Thus, a 
reduction in agricultural activity in a rural, farnring com- 
munity will result in reduced economic activity in almost 
every sector. The result rnay be measured in loss of em- 
ployment and income. The purpose of this research has 
been to estimate some of these impacts. 

The three key relationships developed here provide 
a method to estimate impacts with a minimal amount 
of data collection and manipulation. The mode! takes 
the practitioner's estimates of changes in agricultural 
production and estimates the change in agricultural 
sales. Then, the predicted change in total sales is used 
to predict the change In total county employment and 
the secondary Impacts on county Income. This much 
can be accomplished by simply estimating changes in 



production of key crops. If the user can also estimate 
changes in other basic sectors (government, manufac- 
turing and non-farm proprietors), even more meaning- 
ful estimates are possible. 

The model is both enhanced and hampered by its 
Simplicity. Scarcity of detailed annual county data se- 
verely limits what would be a very useful time-series 
analysis. Nevertheless, this cross-sectional analysis 
provides policy makers with a tool that Will allow them 
to quantify the impacts on rural counties of changes in 
agricultural policies and production. 
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Computer Report Format 



ESTIMATED IMPACT OF CHANGES IN' AGRICULTURAL OUTPUT ON RURAL COUNTY 
AGRICULTURAL SALES. EMPLOYMENT. AND INCOME 



COUNTY Y 



THIS REPORT WAS PRODUCED BY USER 



THE FOLLOWING ARE THE ESTIMATES YOU REQUESTED: 



ESTIMATED CHANGE IN AGRICULTURAL SALES 



(1,OQOs) 



-$3,946 



95% CONFIDENCE INTERVAL IS 



-$3,950 



-$3,942 



ESTIMATED CHANGE IN FARM PROPRIETORS 



95% CONFIDENCE INTERVAL IS 



ESTIMATED CHANGE IN TOTAL EMPLOYMENT 



95% CONFIDENCE INTERVAL IS 



-6 



ESTIMATED ADDITIONAL CHANGE IN INCOME (1,000s) 



-$134 



95% CONFIDENCE INTERVAL IS 



-$1,409 



$1,141 
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Appendix A 
Texas Agricuiturai Counties 



1. 


Archer 


31. 


Hudspeth 


2. 


Armstrong 


32. 


Irion 


3. 


Bailey* 


33. 


Jim Hogg 


4. 


Borden 


34. 


Kinney 


5. 


Bosque 


35. 


Knox 


6. 


Rricpnp 


36. 


Lamb 




Camp 


37. 


Lee 


8. 




38. 


Lioscomb 


9 


Chprnkpp 


39 


Llano 


10 


Coke* 


40. 


Loving* 


11 


Cnllinn^worth 


41. 


Madison 


12. 


Comanche 


42. 


Mason 


13. 


Concho 


43. 


. '^nard* 


14. 


Cottle 


44. 


Mills 


15. 


Crosby 


45. 


Motley 


16. 


Deaf Smith 


46. 


Parmer 


17. 


Dickens 


47. 


Presidio* 


18. 


Donley* 


4a 


Real* 


19. 


Edwards 


49. 


Roberts 


20. 


Falls 


50. 


San Augustine 


21. 


Fioyd 


51. 


Schleicher 


22. 


Foard 


52. 


Shelby 


2a 


Franklin* 


53. 


Sherman 


24. 


Glasscock 


54. 


Starr* 


25. 


Goliad* 


55. 


Swisher 


2a 


Gonzales 


5& 


Terrell* 


27. 


Hale 


57. 


Throckmorton* 


28. 


Hansford 


58. 


Wheeler 


29. 


Hartley 


59. 


Willacy 


30. 


Haskell 


60. 


Williamson 



* Indicates counties that are deleted from the study 
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Part 1: Program Code for the IBM Version. 

1 REM riTLE: IMPACT ON AG COMMUNITIES OF CHANGING FARM 
ECO.^OMY 

2 REM ~ FILENAME: AGIMPACT.BAS 

3 REM — VERSION: ONE 

4 REM DATE: MAY 1968 

5 REM — AUTHORS: NOTIE H. LaNSFORD, JR and LONNIE JONES 

6 REM — PROGRAMMER: NOTIE LANSFORD 

7 REM DEPT. OF AG. ECON., TEXAS A6tM UNIVERSITY FOR 
SOUTHERN RURAL 

8 REM — DEVELOPMENT CENTER 

9 REM — IBM BASIC 3.0, IbM PERSONAL COMPUTER AT 

10 REM VARIABLES DEFINED 

20 REM — COTTHV\C - CHANGE IN HARVESTED ACRES OF COTTON 
30 REM — CORNHVaC - CHANGE IN HARVESTED ACRES OF CORN FOR 
GRAIN 

40 REM SOGRHVAC - CHANGE IN HARVESTED ACRES OF SORGHUM FOR 
GRAIN 

50 REM SOYBHVAC - CHANGE IN HARVESTED ACRES OF SOYBEANS 

60 REM — HAYHVACR - CHANGE IN HARVESTED ACRES OF HAY 
70 REM WHEAHVAC - CHANGE IN HARVESTED ACRES OF WHEAT FOR 
GRAIN 

80 REM — CCSOLDNM - CHANGE IN NUMBER OF CATTLE SOLD (OR TO 
BE SOLD) 

90 REM — POLSALNM - CHANGE IN NUMBER OF POULTRY SOLD (ALL 

AGES, TYPES, & TURKEYS) 
100 REM ~ MILK - CHANGE IN POUNDS OF MILK SOLD 
110 REM — FARMS - CHANGE IN TOTAL NUMBER OF FARMS 
120 REM A FARM IS A PLACE FROM WHICH $1,000 OR MORE OF 

PRODUCTS ARE SOLD 
130 REM — GOVTE - CHANGE IN NUMBER OF PEOPLE EMPLOYED BY 

LOCAL, STATE, & FEDERAL 
140 REM — GOVERNMENTS INCLUDING MILITARY 

150 REM — MANUFCTE - CHANGE IN NUMBER OF PEOPLE EMPLOYED IN 

S.I.C. DEFINED 
160 REM — MANUFACTURING SECTOR EXCLUDING PROPRIETORS 
170 REM NFPE - CHANGE IN NUMBER OF PEOPLE WHO ARE NON-FARM 

PROPRIETORS REGARDLESS OF 
180 REM — THE SECTOR (COULD BE MANUFACTURING, RETAIL, 

SERVICES, ETC) 
190 REM EMPLOY - TOTAL COUNTY EMPLOYMENT 
200 REM — PSALES - PREDICTED TOTAL AGRICULTURE SALES 
210 REM — PFPE - PREDICTED FARM PROPRIETORS 
220 REM — PEMPLOY - PREDICTED COUNTY EMPLOYMENT 
230 REM PINCOME - PREDICTED COUNTY INCOME 

240 REM — COTTON - CURRENT TOTAL ACRES OF COTTON HARVESTED 
250 REM — CORN - CURRENT TOTAL ACRES OF CORN HARVESTED 
260 REM — SORGHUM - CURRENT TOTAL ACRES OF SORGHUM HARVESTED 
270 REM — SOYBEANS - CURRENT TOTAL ACRES OF SOYBEANS 
HARVESTED 

280 REM — HAY - CURRENT TOTAL ACRES OF HAY HARVESTED 
290 REM — WHEAT - CURRENT TOTAL ACRES OF WHEAT HARVESTED 
300 REM — CATTLE - CURRENT TOTAL NUMBER OF CATTLE SOLD (OR 
TO BE SOLD) 
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JIO REM POULTRY - CURRENT TOTAL NUMBER OF POULTRY SOLD 

(ALL AGES, TYPES, & TURKEYS; 
320 REM MAZEWA - CURRENT TOTAL POUNDS OF MILK SOLD 
330 REM SHAMiJAS - CURRENT TOTAL NUMBER OF FARMS 
340 REM -- GOVT - CURRENT TOTAL NUMBER OF PEOPLE EMPLOYED BY 

LOCAL, STATE, tx 

350 REM FEDERAL GOVERNMENTS INCLUDING THE MILITARY 

360 REM — MANUF - CURRENT TOTAL NUMBER OF PEOPLE EMPLOYED IN 
S.I.C. DEFINED 

370 REM MANUFACTURING SECTOR EXCLUDING PROPRIETORS 

380 REM NF - CURRENT TOTAL NUMBER OF PEOPLE WHO ARE NON- 

FARM PROPRIETORS REGARDLESS OF THE SECTOR (COULD 





BE 


[MANUFACTURING , 


i Q n 


PRINT 


^ uu 


DIM 




A 1 n 

^ 1 u 


DIM 


CORNHVACC 2^ 


4 zu 


HTM 

U 1.11 






n 1 M 




A A n 


DIM 


HAY HV ACR C 2 ^ 




DIM 


WHEAHVACC 2 ) 


A AH 


HTM 


PP^^DT nWM^' 2 ^ 


A 7n 




PD T ^ a I M M ^' 2 ^ 


A Q n 


HTM 


M T T 1^ 2 ^ 

i 1 J. \ / 




n r M 


r AKMd \ ) 


500 


DIM 


A \7 T 1? / 0 t 

bU V i D V z ; 


510 


DIM 


MAN UrLIbv ^ ) 


J ZO 


HTM 


IN r IT c V, Z ^ 


3iO 


HTM 


tiW r LU 1 V Z ^ 




n T K( 

u in 


DCAI \* Q. ( 0 \ 

roALDDvZ ^ 


CCA 

5 50 


n r M 
U i W 


r r r c* V, Z ) 


C ^ A 

5 dO 




PPMPI CW ( 9 ^ 


C 7 '1 

5/0 


HTM 


DTMPnMl?^9 ^ 
rilNliUriD^Z ) 


C O A 

5 oO 


DIM 


LCIPFPE(2 ) 


C Q A 
5 90 


DIM 


HCIPFPE(2 ) 


600 


DIM 


LCIPEMPL0Y(2 ) 


610 


DIM 


HCIPEMPL0Y(2 ) 


611 


DIM 


LCIPINC0ME(2 ) 


612 


DIM 


HC IPINC0MEC2 ) 


620 


DIM 


COTTON( 1 ) 


630 


DIM 


CORN( 1 ) 


640 


DIM 


SORGHUMC 1 ) 


650 


DIM 


SOYBEANSC i ) 


660 


DIM 


HAY(1 ) 


670 


DIM 


WHEAT( 1 ) 


680 


D£M 


CATTLEC 1 ) 


690 


DIM 


POULIRY( i ) 


700 


DIM 


MAZEWAC 1 ) 


710 


DIM 


SHAMBAS( 1 ) 


720 


DIM 


GOVT( I ) 


730 


DIM 


MANUFC 1 ) 


740 


DIM 


NF( 1 ) 


750 


REM 





•INTRODUCTION- 



755 PRINT AG IMPACT MODEL" 
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760 PRINT "ESTiMATiNG ECONOMIC IMPACTS OF CHANGING FARM 

POLICIES ON RURAL COMMUNITIES" 
770 PRiNT " " 

780 PRINT "THIS INTERACTIVE MODEL IS DESIGNED TO PROVIDE 

ESTIMATED CHANGES IC^" 
790 PRINT "COUNTY AGRICULTURAL SALES, INCOME, AND EMPLOYMENT 

IN RURAL COMMUNITIES" 
800 PRINT "WHERE AGRICULTURE PROVIDES A RELATIVELY LARGE 

PROPORTION (20% OR MORE) " 
810 PRINT "OF THE LOCAL REVENUES. THIS ANALYSIS IS DESIGNED 

TO REQUIRE DATA" 
820 PRINT "OBTAINABLE FROM PUBLIC SOURCES. THE COEFFICIENTS 

EMPLOYED ARE A" 

830 PRiNT "RESULT OF ANALYSES USING 1982 DATA FROM THE CENSUS 
OF AGRICULTURE" 

840 PRINT "(TEXAS), THE BUREAU OF ECONOMIC ANALYSIS, AND THE 

TEXAS CROP AND" 
850 PRINT "LIVESTOCK REPORTING SERVICE. THIS DATA AND 

SIMILAR DATA IS" 
860 PRINT "AVAILABLE FOR ALL SOUTHERN STATES. THE RESULTING 

OUTPUT PROVIDES" 
870 .RINT "IMPORTANT INFORMATION FOR LOCAL, STATE, AND 

NATIONAL LEADERS AND" 
880 PRINT "POLICY MAKERS WITH REGARD TO COMMUNITIES WITH A 

SIMILAR ECONOMIC" 

890 PRINT ''BASE." 

891 PRINT 

892 PRINT "WRITTEN BY NOTIE H. LANSFORD, JR. AND LONNIE L. 
JONES" 

893 PRINT "DEPARTMENT OF AGRICULTURAL ECONOMICS, TEXAS A&M 
UNIVERSITY" 

894 PRINT "FOR THE SOUTHERN RURAL DEVELOPMENT CENTER, 
MISSISSIPPI STATE UN." 

895 PRINT "MAY 1988" 
900 PRINT " " 

910 PRINT "PRESS ANY KEY TO CONTINUE" 

920 A$=INKEY$: IF A$="" THEN 920 

930 CLS 

940 V$=DATE$ 

950 PRINT DATE$ 

960 PRINT 

970 PRINT TAB(25) "OPTIONS MENU" 
980 PRINT 
990 PRINT 

1000 PRINT TAB(20)"1. INPUT DATA" 

mo PRINT TAB(20)"2. CHANGE DATA AND RERUN 



RESULTS" 



1020 



PRINT TAB(20)"3. 
DISKETTE?" 



STORE THE DATA ON THE 



1030 



PRiNT TAB(20)"4. 
DISKETTE" 



RECALL DATA STORED ON 



1040 
1050 
1060 



PRiNT TAB(20)"5. 
PRINT TAB(20)"6. 
PRINT TAB(20)"7. 



EXIT PROGRAM" 

INPUT ACTUAL CURRENT DATA 



tt 



FILE DIRECTORY 



It 



o 
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1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1175 
li/6 
11«0 
1 190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 
1270 
1280 
1290 
1300 

1310 
1320 
1330 
1340 
1350 
1360 

1370 
1380 
1390 

1400 

1410 
1420 
1430 
1440 
1450 



PRINT 
INPUT 
CLS 

IF NUM = 
NUM = 
NUM = 
NUM = 
NUK = 
NUM = 
NUM = 



"ENTER THE NUMBER OF THE OPTION YO'J CHOOSE 



NUM 



IF 
IF 
IF 
IF 
IF 
IF 



1 

2 
3 
4 
5 
6 
7 



PRINT:PRINT 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
"YOU 



1190 
3760 
6110 
6320 
CLS : 
6690 
6620 
MUST 



ANY KEY 
AS = "" 



PRINT "<PRESS 
A$=INK£Y$: IF 
GOTO 930 
COTTHVaC(I) = 
SOYBHVAC(l) = 
HAYHVACR(l) = 
POLSALNM(l) = 
MILK(l) ^ 0 : 
= 0 

C0TTHVaC(2) = 
S0YBHVAC(2) = 
riAYHVACR(2) = 
P0LSALNM(2) = 
MILKU) = 0 : 
= 0 

NFPEU) = 0 : 
0 : YESNO$ 
PRINT "WHAT TITLE 
TITLE$ 
"YOUR NAME 
USER$ 

"DO YOU WANT 
LIVESTOCK ESTIMATES 
INPUT ESTYPE$ 
IF £STYPE$="s" 
ESTYPE$="S" 



SYSTEM 



RESPOND WITH 1 
TO CONTINUE>" 
THEN 1176 



CORNHVAC(i) = 0 
WHEAHVACC 1 ) = 0 



0 
0 
0 
0 

FARMS(i) = 0 : GOVTE(l) = 0 



- 7." 

SOGRHVACC 1 ) = 0 
CCSOLDNM(l) = 0 



MANUFCTEC 1 ) 



C0RNHVAC(2) - 0 
WHEAHVAC(2) = 0 



0 
0 
0 
0 

FARMS(2) = 0 



S0GRHVAC(2) = 0 
CCS0LDNM(2) = 0 



EMPLOY(i) = 

tt M 



G0VTE(2) = 0 
NFPE(2) = 0 



WOULD YOU LIKE TO GIVE TO 



MANUFCTEt 2 ) 
EMPL0Y(2) = 
THIS RUN?" 



INPUT 
PRINT 
INPUT 
PRINT 



IS 



9?i 



ESTYPE$="r' 



THEN 
THEN 
THEN 
THEN 
-"R" 



IF 
IF 

IF ESTYPE$="R" 
IF NUT ESTYPE$= 
S OR R!" 

IF NOT ESTYPE$="R" 

CLS 

REM 



TO GIVE SINGLE 
OR RANGES? (S 

ESTYPE$="S" 
GOTO 1380 
ESTYPE$="R" 
GOTO 1380 
THEN PRINT "YOU 

THEN 1300 

INPUT 



NUMBER 
OR R)" 



ACREAGE AND 



MUST RESPOND WITH AND 



SECTION 

PRINT "In the upcoming year, do you foresee an increase 
or decrease(-) in the number** 

PRiNT "of harvested acres for any of these three crops?" 



PRINT 
PRINT 
PRINT 
PRINT 



"1. 
"2. 
"3. 

"If 



for which 



1460 PRINT 



Cot ton" 

Corn for Grain" 
Sorghum for Grain" 

so, enter the number corresponding to the crop 
you foresee" 
change. If ot simply hit ttie ENTER or RETURN 
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key." 

1470 PRINT "IF YOU NEED SOME HELP, TYPE AN 'H'." 
1480 INPUT NUMBER$ 

1490 IF NUMBER? = ^'H" THEN 5680 ELSE 1500 
1500 IF NUMBER$ = THEN GOTO 1850 

1510 IF NUMBER$ = "1" THEN PRINT ''What is your estimated 

change in Harvested Acres of Coiton?** ELSE 1590 
1520 IF ESTYP£$ = "S" THEN 1570 
1530 IF ESTYPE$ = "R" THEN 1540 
1540 PRINT "LOW;" 
1550 INPUT COTTHVAC (2) 
1560 PRINT "HIGH:" 
157C INPUT COTTHVAC (1) 
1580 IF SUB$ = "Y" GOTO 3760 

1590 IF NUMBER$ = "2" THEN PRINT "What is your estimated 

change in Harvested Acres of Corn for Grain?" ELSE 1670 
1600 IF ESTYPE$ = "S" TTHEN 1650 

1610 IF ESTYPE$ = "R" THEN 1620 

1620 PRINT "LOW:" 

1630 INPUT CORNHVAC (2) 

1640 PRINT "HIGH:" 

1650 INPUT CORNHVAC (1) 

1660 IF SUB$ = "Y" GOTO 3760 

1670 IF NUMBER? = "3" THEN PRINT "What is your estimated 

change in Harvested Acres of Sorghum for Grain?" ELSE 
1750 

1680 IF ESTYPE$ = "S" THEN 1730 
1690 IF ESTYPE$ = "R" THEN 1700 
1700 PRINT "LOW:" 
1710 INPUT SOGRHVAC (2) 
1720 PRINT "HIGH:" 
1730 INPUT SOGRHVAC (1) 
1740 IF SUB$ = "Y" GOTO 3760 
750 IF NUMBER? > "3" THEN PRINT "YOU MUST RESPOND WITH A 1, 
2, 3 OR RETURN" 
1760 IF NUMBER? > "3" THEN GOTO 1400 

1770 PRINT "Do you foresee a change in another crop category 

(Y OR N)" 
1780 INPUT YN$ 
1790 GOSUB 5590 

1800 IF YNi? = "Y" THEN PRiNT "Type a 1 for COTTON, 2 for 

CORN, or 3 for SORGHUM" ELSE 1820 
1810 IF YNi? = "Y" THEN GOTO 1480 
1820 IF YN$ = "N" THEN GOTO 1850 

1830 IF NOT YN$="N" THEN PRINT "YOU MUST RESPOND with a Y or 
an N." 

1840 IF NOT YN$="N" THEN GOTO 1770 
1850 CLS 

1860 PRINT "In the upcoming year, do you foresee an increase 
or decrease(-) in the number of harvested acres for 
any of tliese three crops?" 

1870 PRINT "4. Soybeans" 

1880 PRINT "5. Hay" 

1890 PRINT "6. Wheat" 



1 
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1900 PRiNT " If so, 
crop for which 



1910 

1920 
1930 
1940 
1950 
1960 

1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 

2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 

2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 

2210 
2220 

2230 
2240 

2250 
2260 
2270 

2280 
2290 
2300 

2310 
2 320 
2330 



enter the number 
you foresee'' 
change. If not, simply 



NEED SOME HELP, TYPE AN »H 



PRINT ' 
key," 

PRINT *'IF YOU 
INPUT NUMBER$ 

IF NUMBER$ = "H" THEN 5740 ELSE 
IF NUMBER$ = THEN GOTO 2320 



corresponding to the 



hit the ENTER or RETURN 



1950 



IF NUMBER$ = "4" THEN PRiNT 
change in Harvested Acres of 
IF ESTYPE$ = "S" THEN 2020 
IF ESTYPE$ = "R" THEN 1990 
PRINT "LOW:" 
INPUT SOYBHVAC (2) 
PRINT "HIGH:" 
INPUT SOYBHVAC (1) 
IF SUB$ "Y" GOTO 37 60 
IF NUMBER$ = "5" THEN PRINT 
change in Harvested Acres of 
IF ESTYPE$ = "S" THEN 2100 
IF ESTYPE$ = "R" THEN 2070 
PRINT "LOW:" 
INPUT HAYHVACR (2) 
PRINT "HIGH:" 
INPUT HAYHVACR (1) 
IF SUB$ = "Y" GOTO 3760 
IF NUMBER$ = "6" THEN PRINT 
change in Harvested Acres of 
IF ESTYPE$ = "S" THEN 2180 
IF ESTYPE$ = "R" THEN 2150 
PRiNT "LOW:" 
INPUT WHEAHVAC (2) 
PRINT "HiGH:" 
INPUT WHEAHVAC (1) 
IF SUB$ = "Y" GOTO 3760 

NUMBER$ > "6" THEN PRINT 
6 OR RETURN" 
NUMBER$ > "6" 
NUMBER$ < "4" 
6 OR RETURN" 
NUMBER$ < "4" 
PRINT "Do your foresee 
category? (Y or N)" 
INPUT YN$ 
GOSUB 5590 

IF YN$ = "Y" THEN PRiNT "Type a 
HAY, or 6 for WHEAT" 
IF YN$ = "Y" THEN GOTO 1930 
THEN GOTO 2320 
"N" THEN PRINT "YOU 



What is your 
Soybeans'^" EI 



e s t i mated 
;E 2040 



What is your estimated 
Hay?" ELSE 2120 



What is 
Wheat?" 



your 
ELSE 



estimated 
2200 



IF 

5, 

IF 
IF 
5, 
IF 



"YOU MUST RESPOND WITH A 



THEN 
THEN 



GOTO 1860 
PRINT "YOU 



MUST RESPOND WITH A 4 



THEN GOTO 1860 
a change 



IF 
IF 
0 r 
IF 
CLS 
PRiNT 



YN$ = "N" 
NOT YN$ = 
an N." 
NOT YN$ = 



in another crop 



4 for SOYBEANS, 5 for 



MUST RESPOND with a Y 



"N" THEN GOTO 2240 



"In the upcoming year, do you foresee an increase 
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2340 
2350 
2360 



23 70 
2380 
2390 
2400 
2410 

2420 
2 4 30 
2440 
2450 
2460 
2470 
2480 
2490 

2500 
2510 
2520 
2 5 30 
2540 
2550 
2560 
2570 

2580 
2590 

2600 
2610 

2520 
2630 
2640 

2650 
2660 
2670 

2680 
2690 
2700 



2 720 
2730 
2740 
2750 



or decreise(-) in the number of iivestoc"- sold in any of 
of the following groups?" 
PRINT "7. Cattle" 

PRINT "8. Poultry" 

PRINT "If so, enter the number corresponding 
of livestock for which you see a change. If 
hit the ENTER or RETURN key." 

PRINT "IF YOU NEED SOME HELP, TYPE AN 'H'." 
INPUT NUMBER^ 

IF NUMBER^ "H" THEN 5790 ELSE 2400 
IF NUMliEK$ = "" THEN GOTO 2690 
IF NUMBER$ = "7" THEN PRINT "What 



to the type 
not , simply 



IS your 



estimated 

change in the number of Cattle sold?" ELSE 2490 

IF ESTYPE$ = "S" THEN 2470 

IF ESTYPE$ = "R" THEM 2440 

PRINT "LOW:" 

INPUT CCSOLDNM (2) 

PRINT "HIGH:" 

INPUT CCSOLDNM (1) 

IF SUB$ = "Y" GOTO 3760 

IF NUMBER$ = "8" THEN PRINT "Vh".t is your estimated 

change in the number of Poultry sold?" ELSE 2570 

IF ESTYPE$ = "S" THEN 2550 

IF ESTYPE$ = "R" THEN 2520 

PRINT "LOW:" 

INPUT POLSALNM (2) 

PRINT "HIGH:" 

INPUT POLSALNM (1) 

IF SUB$ = "Y" GOTO 3760 

"8" THEN PRINT "YOU MUST 



RESPOND WITH A 7 



"8" 

n y II 



THEN 
THEN 



GOTO 2330 
PRINT "YOU 

GOTO 2330 
a change in 



MUST RESPOND WITH A 7 



another livestock 



IF NUMBER$ > 
8 OR RETURN" 
IF NUMBER^ > 
IF NUMBER? < 
8 OR RETURN" 
IF NUMBER? < "7" THEN 
PRINT "Do you foresee 
category? (Y or N)" 
INPUT YN$ 
GOSUB 5590 

IF YN$ = "Y" THEN PRINT "Type a 7 for Cattle or an 8 for 
Poultry." ELSE 2660 
IF YN$ = "Y" THEN GOTO 2380 
IF YN$ = "N" THEN GOTO 2690 
IF NOT YN$="N" THEN PRINT "YOU 
and N." 

IF NOT YN$="N" THEN GOTO 2610 
CLS 

PRINT "Do you expect an increase 
Pounds of Milk produced? If so, 
change. If not, simply hit the 



MUST RESPOND With a Y or 



or decreaseC-) in 

give your estimated 

or RETURN key 
It 



the 



ENTER 



PRINT "IF YOU NEED SOME HELP; 
IF ESTYPE$ = "S" THEN 2800 
IF ESTYPE$ = "R" THEN 2750 
PRINT "LOW:" 



T^ PE A '1 



erIc 
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2760 
27 70 
2780 
27 90 
2800 
2810 
2820 
2830 
2840 



2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
29 50 
2960 
2970 



2990 

3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
31 10 
31 20 



3140 
3150 
31o0 
3170 
3180 
3190 
3200 
3210 
3220 



THEN 
THEN 



INPUT MILK (2) 
IF MILK(2) = 0 
IF MILK(2) = 1 
PRINT "HIGH:" 
INPUT MILK ( 1 ) 
IF MILK( 1 ) = 1 
IF SUB$ = "Y" 
CLS 

PRINT "Do you expect 



2830 
5850 



THEN 5050 
THEN GOTO 3760 



an increase or decrease(-) in the 



total number of Farms in your county? 
estimate of the change. If not, simply 
or RETURN key." 

PRINT "IF YOU NEED SOME HELP, TYPE A '1 
IF ESTYPE$ = "S" THEN 2930 
IF ESTYPE$ = "R" THEN 2880 
PRINT "LOW;" 
INPUT FARMS (2) 
IF FARMS(2) = 0 
IF FaRMS(2) = 1 
PRINT "HIGH; " 
INPUT FARMS ( 1 ) 
IF FARMS( 1 ) = 1 
IF SUB$ = "Y" 
CLS 

PRINT "Do you 
in the number 
or federal) in 



If so , give your 
hit the ENTER 



THEN 
THEN 



2960 
5900 



THEN 5900 
GOTO 3760 



expect to see 
of Government 
the county in 



an increase or decrease(-) 
Employees (local- state 
the upcoming year?" 



PRINT If so, give your estimate of the change. If not 
hit RETURN or ENTER." 

PRINT "IF YOU NEED SOME HELP, TYPE A 'l'." 
IF ESTYPE$ = "S" THEN 3080 
IF ESTYPE$ = "R" THEN 3030 
PRINT "LOW;" 

(2) 
= 0 
= 1 



THEN 
THEN 



31 10 
59 50 



THEN 5950 
GOTO 3760 

expect to se e an 
of Manufacturing 



INPUT GOVTE 
IF G0VTE(2) 
IF G0VTE(2) 
PRINT "HIGH:" 
INPUT GOVTE ( 1 ) 
IF GOVTE( 1 ) = 1 
IF SUB$ = "Y" 
CLS 

PRINT "Do you 
in the number 
so , give your 
RETURN or ENTER." 
PRINT "IF YOU NEED SOME HELP 
IF ESTYPE$ = "S" THEN 3220 
IF ESTYPE$ = "R" THEN 3170 
PRINT "LOW:" 
INPUT MANUFCTE (2) 
IF MANUFCTE(2) = 0 
IF MANUFCTE(2) = 1 
PRINT "HIGH:" 
INPUT MANUFCTE { 1 ) 



increase or decrease(-) 
Sector Employees? If 



estimate of the change. If not, hit 



TYPE A » 1 



THEN 
THEN 



32 50 
6000 
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3230 IF MANUFCTEd) = 1 THEN 6000 
3240 IF SUB$ = "Y" GOTO 3760 
3250 CLS 

3260 PRINT "Do you expect to see an increase or decrease(-) 

in the number of Non-farm" 
3270 PRINT "Proprietors in the community? If so, give your 

estimate of the change. If not, hit RETURN or ENTER." 
3280 PRINT "IF YOU NEED SOME HELP, TYPE A M*." 
3290 IF ESTYPE$ = "S" THEN 3360 
3300 IF ESTYPE$ = "R" THEN 3310 
3310 PRINT "LOW;" 
3320 INPUT NFPE (?) 
3330 IF NFPE(2) = 0 THEN 3390 
3340 IF NFPE(2) = 1 THEN 6060 
3350 PRINT "HIGH:" 
3360 INPUT NFPE (1) 
3370 IF NFPE(l) = 1 THEN 6060 
3380 IF SUB$ ^ "Y" GOTO 3760 
3390 CLS 

3400 REM CALCULATIONS 



3410 PSALES( 1 ) = 
CORNHVACC 1 ) 
S0YBHVAC( 1 ) 
WHEaHVAC( 1 ) 
POLSALNM( 1 ) 
3420 PSALES(2) = 
C0RNHVAC( 2 ) 
S0YBHVAC(2 ) 
WHEAHVAC( 2 ) 
P0LSALNM(2) 
3430 IF ESTYPE$ = 
3440 PFPE(l) = 1. 
3450 PFPE(2> = 1. 
3460 PEMPLOY(l) = 
G0VTE( 1 ) * 4 
3470 PEMPL0Y(2) = 
G0VTE(2) * 4 
3480 PINCOME(l) = 
(PEMPLOY( 1 )* 
3490 PINC0ME(2) = 
(PEMPL0Y(2 )* 
3500 IF ESTYPE$ = 
3510 LCIPFPE(l) = 
3520 LCIPFPE(2) = 
3530 HClPFPE(l) = 
3540 HCIPFPE(2) = 
3550 LCIPSALESCl) 
3560 LCIPSALES(2) 
3570 IF ESTYPEJ? = 
3580 HCIPSALES(l) 
3590 HCIPSALES(2) 
3600 IF ESTYPE$ = 
3610 LCIPEMPLOYd 



9.12747bE-02 * COTTHVAC(l) +.5873214 * 
+ .2742663 * SOGRHVAC(l) + .1482326 * 
-.393436 * HAYriVACR(l) + 1.485004E-02 * 
+.6262925 * CCSOLDNM(l) + 1.649475E-03 * 
+ .2164566 * MILK (1 ) 

9.127476E-02 * C0TTHVAC(2) + .5873214 * 
+ .2742663 * S0GRriVAC(2j + .1482326 * 
- .393436 * HAYHVACR(2) + 1.485004E-02 * 
+.6262925 * CCS0LDNM(2) + 1 
+.2164566 * MILK(2) 

"S" THEN PSALES(2) = 0 
737452E-04 * PSALES(l) + 1 
737452E-04 * PSaLES(2) + 1 

PSALES(l)* .0018418 +MANUFCTE(1) 
.3432 + NFPEC 1 ) * 1 .4073 

PSALES(2)* .0018418 +MANUFCTE(2) 
. 3432 + NFPE(2 ) * 1 .4073 



.649475E-03 * 



276869 
276869 



•k 



FARMS( 1 ) 
FARMS(2) 
1 . 0327 + 



1.0327 + 



18.47682 * PEMPLOY(l) 
PEMPLOY( 1 )*PEMPL0Y( 1 ) ) 
18.47682 * PEMPL0Y(2) 
PEMPL0Y( 2 )*PEMPL0Y(2 ) ) 
"S" THEN PiNC0ME(2) = 
PFPE(l) - (1.96*2.0308) 
PFPE(2) - (1.96*2.0308) 
PFPE(l) + (1.96*2.0308) 
PFPE(2) + (1.96*2.0308) 
= PSALESd ) - (1 .96 * 
= PSALES(2) - (1.96 * 
"S" THEN LC1PSALES(2) 
= PSALES(l) + (1.96 * 
= PSALES(2) + (1 .96 * 
"S" THEN HCIPSALES(2) 
) = PEMPL0Y( 1 ) - 1.96 



+ 1.26313E-08 * 



+ 1.26313E-08 * 



0 



1.8162) 
1 .8162) 

= 0 

1.8162) 
1.8162) 
= 0 
.5151 
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3620 LCIPEMPL0Y(2) = PEMPi.0Y(2) - 1.96 * .5151 
3630 IF ESTYPE$ = "S" THEN LC I P EMPLO Y ( 2 ) = 0 
3640 HCIPEMPLOYt 1 ) = PEMPLOYCl) + 1.96 * .5151 
3650 HC1PEMPL0Y(2) = PEM,PL0Y(2) + 1.96 * .5151 
3660 IF ESTYPE$ = "S" THEN HC IPEMPLOY ( 2 ) = 0 
3670 LCIPINCOME( 1 ) = PINCOME(l) - 1.96 * 650.49 
3680 LCIPINCUME(2 ) = PINC0ME(2) - 1.96 * 650.49 
3690 IF ESTYPE$ = "S" THEN LCIPINC0ME(2) = 0 
3700 HCIPINCOME(l) = PINCOMECD + 1 .96 * 650 .49 
3710 HCIPINC0ME(2) = PINC0ME(2) + 1.96 * 650.49 
3720 IF ESTYPE$ = "S" THEN HC I P I NCOME ( 2 ) = 0 
3730 IF SUB$ = "N" THEN 4280 ELSE 3760 
3740 IF YESNO$ = "N" THEN 4280 

3750 REM SCREEN REVIEW OF INPUT & 

OUTPUT 

3760 SUB$ = "" 
3770 YES NO $ = "" 
3780 CLb 

3790 PRINT "ESTIMATED CHANGES FOR THE COMING YEAR" 
3800 PRINT " " 

3810 PRINT "1. ACRES OF HARVESTED COTTON" TAB(50) 

C0TTHVAC(2) TAB(70) COTTHVAC(l) 
3820 PRINT "2. ACRES OF HARVESTED CORN" TAB(50) C0RNHVAC(2) 

TAB(70) CORNHVAC(l) 
3830 PRINT "3. ACRES OF HARVESTED SORGHUM" TAB(50) 

S0GRHVAC(2) TABUO) SOGRHVAC(l) 
3840 PRINT "4. ACRES OF HARVESTED SOYBEANS" TAB(50) 

S0YBHVAC(2) TAB(70) SOYBHVAC(l) 
3850 PRINT "5. ACRES OF HARVESTED HAY" TAB(50) HAYHVACR(2) 

TAB(70) HAYriVACR(l) 
3860 PRINT "6. ACRES OF HARVESTED WHEAT" TAB(50) WHEAHVAC(2) 

TAB(70) WHEAHVAC(l) 
J870 PRINT "7. NUMBER OF CATTLE AND CALVES SOLD" TAB(50) 

CCS0LDNM(2) TAB(70) CCSOLDNM(l) 
3880 PRINT "8. NUMBER OF POULTRY SOLD" TAB(50) P0LSALNM(2) 

TAB(70) POLSALNM(l) 
3890 PRINT "9. POUNDS OF MILK PRODUCED" TAB(50) MILK(2) 

TAB(70) MILK(l) 
J900 PRINT "10. NUMBER OF FARMS IN THE COUNTY" TAB(50) 

FARMS(2) TAB(70) FARMS(l) 
3910 PRINT "11. NUMBER OF GOVERNMENT EMPLOYEES" TAB(50) 

G0VTE(2) TAB(70) GOVTE(l) 
3920 PRINT "12. NUMBER OF MANUFACTURING EMPLOYEES" TAB(50) 

MANUFCTE(2) TAB(70) MANUFCTE(l) 
3930 PRINT "13. NUMBER OF NONFARM PROPRIETORS" TAB(.50) 

NFPE(2) TAB(70) NFPE(l) 
3940 PRINT 

3950 PRINT "DO YOU WISH TO MAKE ANY CORRECTIONS? (Y or N). 
3960 INPUT SUB$ 

3970 IF SUB$ = "YES" THEN SUB$ = "Y" 
3980 IF SUB$ = "yes" THEN SUB$ = "Y" 
3990 IF SUB$ = "y" THEN SUB$ = "Y" 
4000 IF SUB$ = "Y" THEN 4080 
4010 IF SUB$ = "NO" THEN SUB$ = "N" 
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2i 



4020 


IF 


SUB? = " 


no 


THEN SUBS = "N" 


4030 


IF 


SUB? = " 


n" 


THEN SUB$ = "N" 


4040 


IF 


NOT SUB? 




"N" THEN PRINT "YOU MUST RESPOND WITH Yes 




or 


No." 






4050 


IF 


NOT SUB? 




"N" GOTO 3950 


4060 


IF 


SUB? = " 


Y" 


THEN 4080 


4070 


IF 


SUB? = " 


N" 


THEN 3400 


4080 


PRINT "GIVE 


THE NUMBER OF THE INPUT YOU WISH TO CHANGE. 


4090 


INPUT NUMBER? 




■ 100 


IF 


NUMBER? 




"1" THEN 1510 


4.10 


IF 


NUMBER? 




"2" THEN 1590 


4120 


IF 


NUMBER? 




"3" THEN 1670 


4130 


IF 


NUMBER? 




"4" THEM 1960 


4:40 


IF 


NUMBER? 




"5" THEN 2040 


4150 


IF 


NUMBER? 




"6" THEN 2120 


4160 


IF 


NUMBER? 




"7" THEN 2410 


4170 


IF 


NUMBER? 




"8" THEN 2490 


4180 


IF 


NUMBER? 




"9" THEN 2700 


4190 


IF 


NUMBER? 




"10" lliSN 2840 


4200 


IF 


NUMBER? 




"U" THEN 29 70 


4210 


IF 


NUMBER? 




"12" THEN 3120 


4220 


IF 


NUMBER? 




"13" THEN 3260 


4230 


PRINT "YOU 


MUST RESPOND WITH 1 - 13." 


4250 


PRINT "PRESS 


ANY KEY TO CONTINUE" 


4260 


A$ = 


INKEY? : 


IF 


A$="" THEN 4260 


4265 


GOTO 3780 






4270 


IF 


ESTYPE? 




"S" THEN PINC0ME(2) = 0 


4280 


PRINT 






4290 


PRINT "THE 


FOLLOWING ARE THE ESTIMATES YOU REQUESTED" 


4300 


PRINT " 




It 


4310 


PRINT USING 


"ESTIMATED CHANGE IN AG SALES (1,000s) 




§$////,//////,?///// 


??////,//#//,//////" ;PSALES(2) ,PSALES( 1) 


4320 


PRINT 






4330 


PRINT USING 


It 


95% CONFIDENCE INTERVAL IS ??////,//////,////// 



//,//////,//////$$////,//#// ,//f^ //$$////,//////,//////"; LCI PSALESC 2) , 
riClPSALES(2) ,LCIPSALES( 1) ,HCIPSALES( 1 ) 
4340 PRINT 

4350 PRINT USING "ESTIMATED CHANGE IN FARM PROPRIETORS 



itJHHtJHHt //,//////,//////"; PFPE(2) ,PFPE( 1) 

4360 PRINT 

4370 PRINT USING "95% CONFIDENCE INTERVAL IS if JHUt JHHt 

itJHHfJHHt ifJHHfJHHf 

//,//////,//////"; LCIPFPE (2 ) ,HCIPFPE( 2 ), LCIPFPEC 1 ) ,HCIPFPE( 1 ) 
4380 PRINT 

4390 PRINT USING "ESTIMATED CHANGE IN TOTAL EMPLOYMENT 

ifJHHfyiHhf //,//////,//////" ;PEMPL0Y(2) ,PEMPL0Y(1) 

4400 PRINT 

4410 PRINT USING "95% CONFIDENCE INTERVAL IS //,//////,////// 
ItJHHfJHHf ifJHHtJHHt 

it JHHf , ////// ";LCIPEMPLOY( 2) , HCIPEMPLOY ( 2 ) , LC IPEMPLO Y ( 1 ) , 
HCIPEMPLOYC 1 ) 
4420 PRINT 

4430 PRINT USING "ESTIMATED ADDITIONAL CHANGE IN INCOME 

$$////,//////,////// $$////,//////,//////" ;PINCOME (2) ,PINCOME( 1 ) 
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4440 PRINT 

4450 PRINT USING "95% CONFIDENCE INTERVAL IS ^ $ it JHHt y iHHI 

$$// ,//////,//////" ; LCIPINC0ME(2) , HCIPINC0MEC2 ) , LC IP INCOME ( 1 ) , 
HCiPINCOME(l) 
4460 PRINT 

4470 PRINT "DO YOU WISH TO PRINT THIS REPORT? (Y or N)" 
4480 INPUT YN$ 
4490 GOSUB 5590 

45O0 IF YN;? = "Y" THEN GOTO 4510 ELSE 4540 

4510 IF NUM=6 THEN 7620 

4520 IF ESTYPE$ = ^'S" GOTO 4570 

45^0 I'^ ESTYPE$ = "R" GOTO 5080 

4540 IF YNi? = "N" THEN 930 

4550 IF NOT YN$ = "N" THEN PRINT "YOU MUST REFOND with a Y or 
an N." 

4560 IF NOT YN$ = "N" THEN 4470 

45 70 REM REPORT PRINT (SINGLE) 



4580 
4590 
46O0 
46 10 
4620 

4630 

4640 
4650 



46 60 
46 70 
4680 

46 90 
47O0 

47 10 
47 2u 
4 7 30 
47 40 
47 50 
47 60 
4 7 70 
47 80 
47 90 
48O0 

4810 
4820 
4830 
4840 
4850 

4860 



IF NUM = 6 THEN 7600 
IF SHAMBAS(1;>0 THEN 7620 
LPRINT DATE$ 
LPRINT 

LPRINT TAB(12) "EMPLOYMENT 
AGRICULTURE SECTOR OUTPUT" 

LPRINT TAB(7; "PLUS CHANGES IN GOVERNMENT 
MANUFACTURING, & NONFARM EMPLOYMENT" 



IMPACT OF CHANGES IN 



FOR I = 

LPRINT 

IMPACT 

SECTOR 

LPRINT 

LPRiNT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 



^ 1 TO 80 : LPRINT "*";:NEXT I : 
"TrtIS REPORT PRODUCES ESTIMATES 
OF CHANGES IN THE 
ON YOUR LOCAL COMMUNITY" 



LPRINT : LPRINT : 
OF THE ECONOMIC 
AGRICULTURE 



TAB( 35) TITLE$ 
: LPRINT 

"THIS REPORT WAS PRODUCED BY" TAB(35) US£R$ 
: LPRINT 

"THE FOLLOWING IS THE INPUT DATA YOU PROVIDED 



"HARVESTED 
"HARVESTED 
"HARVESTED 
"HARVESTED 
"HARVESTED 
"HARVESTED 
"NJMBER OF 



CCSOLDNM( 1 ) 
LPRINT "NUMBER 



LPRINT 
LPRINT 
LPRINT 
LPRINT 



"POUNDS 
"NUMBER 
"NUMBER 
"NUMBER 



OF 
OF 
OF 
OF 
OF 



ACRES OF COTTON" TAB(50) COTTHVACCl) 
ACRES OF CORN" TAB(50) CORNHVAC(l; 
ACRES OF SORGHUM" TAB(50) SOGRHVAC(l) 
ACRES OF SOYBEANS" TAB(50) SOYBHVaC(I) 
ACRES OF HAY" TAB(50) HAYHVACR( 1) 
ACRES OF WHEAT" TAB(50) WHEAHVAC(l) 
CATTLE AND CALVES SOLD" TAB(50) 

POULTRY SOLD" TAB(50) POLSALNM(l) 
MILK PRODUCED" TAB(50) MILK(l) 
FARMS IN TilF. COUNTY" TAB (50) FARMS(l; 
GOVERNMENT EMPLOYEES" TAB(50) GOVTE(l) 
MANUFACTURING EMPLOYEES" TAB(50) 



MANUFCTE( 1 ) 
LPRINT "NUMBER 



OF NONFARM PROPRIETORS" TAB(50; NFPE(l) 
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4870 LPRliNT 
4880 LPRINT 

4890 LPRiNT "THE FOLLOWING ARE THE ESTIMATES YOU REQUESTED" 
4900 LPRINT " 

4910 LPRINT USING "ESTIMATED CHANGE IN AGRICULTURAL SALES 

( 1 ,000s) $$////,//////, "; PS ALES ( 1 ) 
4920 LPRINT 

4930 LPRINT USING "95% CONFIDENCE INTERVAL IS 

$:?//////,//////" ; LCIPSALESC 1 ) , HCIPSALES( 1 ) 

4940 LPRINT 

4950 LPRINT USING "ESTIMATED CHANGE IN FARM PROPRIETORS 

////,//////";PFPE(l) 
4960 LPRINT 

4970 LPRINT USING "95% COiNFIDENCE INTERVAL IS 
////,////f^ ////,//////" ;LC I PFPE( 1 ) ,HCrpFPE( 1 ) 

4980 LPRINT 

4990 LPRINT USING "ESTIMATED CHANGE IN TOTAL EMPLOYMENT 

////,////f/";PEMPLOY(l) 
5000 LPRINT 

5010 LPRINT USING "95% CONFIDENCE INTERVAL IS 

////,////// ////,//////"; LCI PEMPLOYd ) , HC I PEMPLOY ( 1 ) 

5020 LPRINT 

5030 LPRINT USING "ESTIMATED ADDITIONAL CHANGE IN INCOME 

( 1 ,000s) $$//,//////,//////"; PINCOMEC 1) 

5040 LPRINT 

5050 LPRINT USING "95/o CONFIDENCE INTERVAL IS 

$$//,//////,////# $$//,//////,//////"; LCI PINCOMEC 1 ) , HCI P INCOME ( 1 ) 
5060 LPRINT 
5070 GOTO 930 

5080 REM REPORT PRINT (RANGE) 



5090 LPRINT DATE^ 
5100 LPRINT 

5110 LPRINT TAB(IO) "THE IMPACT ON EMPLOYMENT OF CHANGES IN 

AGRICULTURE OUTPUT" 
5120 LPRINT TAB(7) "PLUS CHANGES IN GOVERNMENT, 

MANUFACTURING, & NONFARM EMPLOYMENT" 
5130 FOR I = 1 TO 80 : LPRINT "*";:NEXT I : LPRINT : LPRINT: 
5140 REM "THIS REPORT PRODUCES ESTIMATES OF THE ECONOMIC 

IMPACT OF CHANGES IN THE AGRICULTURE SECTOR ON 

YOUR LOCAL COMMUNITY" 
5150 LPRINT 
5160 LPRINT 

5170 LPRINT TAB(i5) TITLE$ 
5180 LPRINT : LPRINT 

5190 LPRINT "THIS REPORT WAS PRODUCED BY" TAB(35) USER;) 
5200 LPRINT : LPRINT 

5210 LPRINT "THE FOLLOWING IS^ THE INPUT DATA YOU PROVIDED:" 
5220 LPRINT 

5230 LPRiNT TAB(50) "LOW:" TAB(70) "HIGH:" 

5240 LPRINT "HARVESTED ACRES OF COTTON" TAB(50) C0TTHVAC(2) 

TAB(70) COTTHVAC(l) 
5250 LPRINT "HARVESTED ACRES OF CORN" TAB(50) C0RNHVAC(2) 

TAB(70) CORNHVAC(l) 
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5260 LPRiNT "HARVESTED ACRES OF SORGHUM" TAB(50) S0GRHVAC(2) 

TAB(70) SOGRHVAC(l) 
5270 LPlliNT "HARVESTED ACRES OF SOYBEANS" TAB(50) S0YBHVAC(2) 

TAB(70) SOYBHVAC(l) 
5 ^0 LPRiNT "HARVESTED ACRES OF HAY" TAB(50) HAx'VACR(2) 

TAB(70 ) HAYHVACR( 1 ) 
5290 LPRiNT "HARVESTED ACRES OF WHEAT" TAB(50) WHEAHVAC(2) 

TAB(70) WHEAHVAC(l) 
5300 LPRiNT "NUMBER OF CATTLE AND CALVES SOLD" TAB(50) 

CCS0LDNM(2) TAB(70) CCSOLDNM(l) 
5310 LPRINT "NUMBER OF POULTRY SOLD" TAB(50) P0LSALNM(2) 

. iB(70) POLSALNM(l) 
5320 LPR; IT "NUMBER OF SHEEP SOLD" TAB(50) SHPSALNM(2) 

TAB(70) SHPSALNM(l) 
5330 LPRINT "POUNDS OF MILK PRODUCED" TAB(50) M1LK(2) TAB(70) 

MILK( 1 ) 

5340 LPRiNT "NUMBER OF FARMS IN THE COUNTY" TAB(50) FARMS(2) 

TAB(70) FARMS(l) 
5350 LPRINT "NUMBER OF GOVERNMENT EMPLOYEES" TAB(50) G0VTE(2) 

TAB(70) GOVTfid) 
5360 LPRiNT "NUMBER OF MANUFACTURING EMPLOYEES" TAB(50; 

MANUFCTE(2) TAB(70) MANUF^TE(l) 
5370 LPRINT "NUMBER OF NONFARM PROPRIETORS" TAB(50) NFPE(2) 

TAB(70) NFPE(l) 
5380 LPRINT 
5390 LPRiNT 

5400 LPRiNT "THE FOLLOWING ARE THE ESTIMATES YOU REQUESTED:" 
5410 LPRINT " " 

5420 LPRINT "ESTIMATED CHANGE IN AGRICULTURAL SALES 

(1 ,000s)" ;TAB(4 6 ^ ; US ING"$$ ////// 

$$//#//,//////"; PS ALES(2) .PSALESU ) 
5430 LPBINT 

5440 LPRiNT USING "95% CONFIDENCE INTERVAL IS 
$$//// $$//////,////// 

$$//f/#,//////";LCIPSALES(2) ,HCIPSALES(2) , LC I P S ALE S ( 1 ) , 
HCIPSALESC 1 ) 
5450 LPRINT 

5460 LPRINT USING "ESTIMATED CHANGE IN FARM PROPRIETORS 

//#,////// ";PFP£( 2) ,PFPE(1 ) 

5470 LPRiNT 

5480 LPRINT USING "95% CONFIDENCE INTERVAL IS 
////,////// 

////,////// ";LCIPFPEU) , HCIPFPE(2) ,LCIPFPE( 1 ) ,HCIPFPE( 1 ) 
5490 LPRiNT 

5500 LPRiNT USING "ESTIMATED CHANGE IN TOTAL EMPLOYMENT 

////,////^/ #//,////^/";PEMPL0Y(2) ,PEMPL0Y(1 ) 

5510 LPRINT 

5520 LPRiNT USING "95% CONFIDENCE INTERVAL IS 

iHtJHUt 

////,// ////";LC I PEMPL0Y(2) » HC IP EMPLOY ( 2 ) , LC IPEMPLOY ( 1 ) , 
HCiPEMPLOYC 1 ) 
5530 LPRINT 

5540 LPRiNT USING "ESTIMATED ADDITIONAL CHANGE IN INCOME 
( 1 ,000s)$$ $$//////,//////";PiNC0ME(2) , 
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PlNCOME(l) 
5550 LPRINT 

5560 LPRINT USING *'95% CONFIDENCE INTERVAL IS 

mfihfJHHt ^^^HH^JHHf , ////// 

$§//////,//^///";LCIPINC0ME(2) , HC I P I NCOME ( 2 ) , LC I P IN C OME ( 1 ) , 

HCIPINCOMEC 1 ) 
5570 LPRINT 
5580 GOTO 930 

5590 IF YN§ = »'YES'' THEN YNi? = "Y" 
5600 IF YN$ = "yes" THEN YN§ = "Y" 
5610 IF YN§ = "y" THEN YN:? = "Y" 
5620 IF YN§ = "NO" THEN YN§ = "N" 
5630 IF YN$ = "no" THEN YN§ = "N" 
5640 IF YN§ = "n" THEN YN§ = "N" 
5650 RETURN 

5660 REM HELP WITH DEFINITION OF VARIABLES 



56 70 
5680 



5690 



5 700 
5710 
5 720 
5 7 30 
5740 



5750 
5760 
5 7 70 
5780 
5790 

5800 



5810 
5820 
5830 
5840 
5850 



5860 
58 70 
5880 
5890 



PRINT 

PRINT "Harvested acres refers only to the number of 
acres actually harvested not the number planted. If more 
than one crop per year is harvested, count both 
harvests to derive the annual total." 
PRINT "Corn and sorghum for grain refers to crops 



for 
for 



the 
hay 



grain and do 
& silage." 



no t 



include sweet corn 



to the 
number 



number of 
planted. If 
count both 



harves t ed 
and crops 
PRINT 

PRINT "PRESS ANY KEY TO CONTINUE." 
A§=INKEY§: IF A§="" THEN 5720 
GOTO 1380 

PRINT "Harvested acres refers only 
acres actually harvested not the 
more than one crop per year is harvested, 
harvests to derive the annual total." 
PRINT 

PRINT "PRESS ANY KEY TO CONTINUE." 
A§=INKEY§: IF A§="" THEN 5770 
GOTO 1850 

PRINT "The 'number of cattle sold' refers 
of cattle - cows, calves, bulls, dairy, etc." 
PRINT "The 'number of poultry sold' refers to all 
and ages of poultry excluding eggs i.e. fryers, , 
broilers, pullets, etc." 
PRINT 

PRINT "PRESS ANY KEY TO CONTINUE." 
A§=INK£Y§: IF A§="" THEN 5830 
GOTO 2320 

PRINT "Tne 'pounds of milk' refers to milk production as 
measured by the Texas Crop St Livestock Reporting 
Servicein 'Agricultural Statistics'or similar state 
publication." 
PRINT 

PRINT "PRESS ANY KEY TO CONTINUE." 
A§=INKEY§: IF A§="" THEN 5880 
GOTO 2690 



to all types 
types 
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5900 



5910 
5920 
5930 
5940 
5950 



5960 
5970 
5980 
5990 
6000 



6010 

6020 
6030 
6040 
6050 
6060 



6070 
6080 
6090 
6100 
6110 

6120 
6130 
6140 
6150 
6160 

6170 

6180 
6190 
6200 

6210 

6220 
6230 
62A0 
6250 
6260 
6270 



PRINT ''The 'number of farms' 
where farm is defined 
Agriculture definition." 
FKiNT 

PRINT "PRESS ANY KEY TO CONTINUE." 



refers to any 
acco rding to 



kind of farm, 
the Census of 



IF A$=' 



THEN 5930 



of government 
and federal 
as defined by 



employees ' is the 

government employees, 
the Bureau of 



A$=INKEY$ : 
GOTO 2830 

PRINT "The 'number' 
to tal local , state , 
including military, 
Economic Analysis." 
PRINT 

PRINT "PRESS ANY KEY TO CONTINUE." 
A$=INKEY$: IF A$="" THEN 5980 
GOTO 2960 

PRINT "The 'number of manufacturing employees' means the 
number of people employed in the Standard Industrial 
Code 'manufacturing' sector and corresponds" 

"to the Bureau of Economic Analysis definition 
does not i nc 1 ude 



manufacturing proprietors. 



"PRESS ANY KEY TO CONTINUE 
IF A$="" THEN 6040 



YOU WOULD LIKE TO SAVE 



PRINT 
whi ch 
PRINT 
PRINT 

A$ = INKEY$ : 
GOTO 3110 

PRINT "The 'number of non-farm proprietors' refers to 
proprietors of businesses in all sectors whether they be 
retail, wholesale, manufacturing, finance, insurance, 
real estate, construction, or others outside agriculture 
PRINT 

PRINT "PRESS ANY KEY TO CONTINUE." 
A$=INKEY$: IF A$="" THEN 6090 
GOTO 3250 

PRINT "ENTER THE NAME UNDER WHICH 
THE DATA AND CALCULATIONS" 
INPUT ST0RE$ 

REM DATA AND CALCULATIONS SAVED 
OPEN "0" , 1 , STORE$ 
WRITE f/1 , TITLE$ , USER$ , ESTYPE$ 
WRITE //I , COTTHVACC 1 ) , CORNHVAC(l), 
SOYBHVAC( 1 ) , HAYHVACR( 1 ) 
WRITE #1 ,C0TTHVAC(2) , C0RNHVAC(2), 
S0YBHVAC(2 ) , HAYHVACW(2) 
WRITE //I ,WHEAHVAC( 1 ) , CCS0LDNM( 1 ) , 
WRITE //I ,WHEAHVAC(2) , CCS0LDNM(2), 
WRITE //I ,FARMS( I ) , 
PSALES( 1 ) 

WRITE //1,FARMS(2), G0VTE(2), 
PSALES(2) 

WRITE #1 ,PFPE(1 ) , PEMPL0Y(1 ) , PINC0ME(1 ) 
WRITE //I ,PFPE(2 ) , PEMPL0Y(2 ) , P1NC0ME(2) 
WRITE #1, LCIPFPE(l), LCI?FPE(2), HCIPFPE(l), 
WRITE //I, LCIPEMPLOY( 1 ) , HC IPEMPLOY ( 1 ) 
WRITE #1, LCIPEMPL0Y(2 ) , HC IPEMPLOY( 2 } 
WRITE 



SOGRHVAC( 1 ) 

S0GRHVAC(2 ) 

POLSALNM( 1 ) 
P0LSALNM(2 ) 



MILK( 1 ) 
M1LK(2 ) 



GOVTE( 1 ) , MANUFCTE( 1 ) 
MANUFCTE(2 ) 



NFPEd ) , 
NFPE(2 ) , 



HCIPFPE(2) 
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#1 , COTTON ( 1 ) ,CORN( 1 ) ,SORGHUM( 1 ) , SOYBEANS ( 1 ) ,HAY( 1 ) , 
WHEAT( i ) 
6280 WRITE 

//I ,CATTL£(1) ,P0ULTRY(1 ) ,MAZEWA(1) ,SHAMBAS(1 ) ,GOVT(i ) , 

MANUF( 1 ) 
6290 WRITE #1 , NF( 1 ) ,NUM 
6300 CLOSE 1 
6310 GOTO 930 

6320 PRINT ''ENTER THE NAME UNDER WHICH THE DATA WAS STORED.'* 
6330 INPUT FILE$ 

6340 COTTHVAC(l) = 0 : CORNHVAC(l) = 0 : SOGRHVAC(l) = 0 : 

SOYBHVACC 1 ) = 0 
6->:)0 HAYHVACR(l) = 0 : WHEAHVAC(l) = 0 : CCSOLDNM(l) = 0 : 

POLSALNM( 1 ) = 0 

6360 MILK(l) = 0 : FARMS(l) = 0 : GOVTE(l) = 0 : MANUFCTE(l) 
= 0 

6370 C0TTHVAC(2) = 0 : C0RNHVAC(2) = 0 : SOGRHVACC) = 0 : 

S0YBHVAC(2) = 0 
5380 HAYHVACR(2) = 0 : WHEAHVAC(2) = 0 : CCS0LDNM(2) = 0 : 

P0LSALNM(2) = 0 

6390 MILK(2) = 0 : FARMS(2) = 0 : G0VTE(2) = 0 : MANUFCTE(2) 
= 0 

6400 COTTON(1)=0 : C0RN(1)=0 : SORGHUM( 1 )=0 : SOYBEANS ( 1 ) =0 : 
HAY( 1)=0 

6410 WHEAT(1)=0 : CATTLE(1)=0 : POULTRf(l)=0 : MAZ E WA( 1 ) = 0 : 

SHAMBASd )=0 
6420 GOVT(1)=0 : iMANUF(l) = 0 : NF(1)=0 

6430 REM INPUT DATA AND CALCULATIONS FROM DISKETTE 

6440 OPEN " I" , 1 , FILE$ 

6450 INPUT //1,TITLZJ?,USER$,ESTYPE$ 

6460 INPUT //I ,COTrHVAC( 1 ) , CORNHVAC(l), SOGRriVAC(l), 

SOYBIWACC 1 ) , HAYHVACRC 1 ) 
6470 INPUT #1 , C0TTHVAC(2 ) , C0RNHVAC(2), S0GRHVAC(2), 

S0YBHVAC(2 ) , HAYHVACR(2) 
6480 INPUT //I , WHEAHVACd ) , CCSOLDNM(l), POLSALNMU), MILK(l) 
6490 INPUT #1 , WHEAHVAC(2) , CCS0LDNM(2), P0LSALNM(2), MILK(2) 
6500 INPUT //1,FARMS(1), GOVTE(l), MANUFCTE(l), NFPE(l), 

PSALESC 1) 

6510 input //1,farms(2), g0vte(2), manufcte(2), nfpe(2), 
psalp:s(2) 

6520 INPUT //x,FFPE(l), PEMPLOY(l), PINCOME(l) 
6530 INPUT //1,PFPE(2), PEMPL0Y(2), PINC0ME(2) 

6540 INPUT #1, LCIPFPE(l), LCiPFPEU), HCIPFPE(l), HCIPFPE(2) 
6550 INPUT //I, LCIPEMPLOYC 1 ) , HC I P EMPLOY ( 1 ) 
6560 INPUT //I, LCIPEMPL0Y(2) , HC IPEMPLOY ( 2 ) 
6570 INPUT 

#1 , COTTON ( 1 ) , CORN( 1 ) , SORGHUM ( 1 ) , SOYBEANS ( 1 ) ,HAY( 1 ) , 
WHEAT( 1 ) 
6580 INPUT 

#1 , CATTLE ( 1 ) , POULTRY ( 1 ) ,MAZEWA( 1 ) , SHAMBAS( 1 ) ,G0VT( 1 ) , 

MANUFd ) 
6590 INPUT #1 ,NF( I ) ,NUM 
6600 CLOSE 1 
6610 GOTO 3760 
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6620 CLS : E$=CHR$(219) 

6630 LOCATE 1,32:PRINT "FILES DIRECTORY" 

6640 FOR i^l TO 76 : PRINT E$; : NEXT I : PRINT : PRINT : 

PRINT 
6650 FILES 

6660 LOCATE 13,1: FOR 1=1 TO 78 : PRINT E$; : NEXT I 
6670 LOCATE 15,1 

6680 INPUT "PRESS ENTER TO RETURN TO THE MENU";S$ : GOTO 930 
6685 REM INPUT OF ACTUAL CROP AND LIVESTOCK 

PRODUCTION 

6690 PRINT "FOR EACH OF THE FOLLOWING DATA ITEMS, PROVIDE THE 

MOST RECENT NUMBER OF ACRES HARVESTED." 

6700 PRINT "IF YOU DO NOT KNOW OR YOU WANT TO ENTER A ZERO, 

JUST PRESS ENTER OR RETURN." 
6710 PRINT 
6720 PRINT "COTTON" 
6730 INPUT COTTON(l) 
6740 IF YESNO$ = "Y" THEN 7190 
6750 PRINT "CORN FOR GRAIN" 
6760 INPUT CORN(l) 
6770 IF YESNO$ = "Y" THEN 7190 
6780 PRINT "SORGHUM FOR GRAIN" 
6790 INPUT SORGHUM(l) 
6800 IF YESNO$ = "Y" THEN 7190 
6810 PRINT "SOYBEANS" 
6820 INPUT SOYBEANS(l) 
6830 IF YESNO$ = "Y" THEN 7190 
6840 PRINT "HAY" 
6850 INPUT HAY(l) 
6860 IF YESNO$ = "Y" THEN 7190 
6870 PRINT "WHEAT" 
6880 INPUT WHEAT(l) 
6890 IF YESNO$ = "Y" THEN 7190 
6900 CLS 

6910 PRINT "FOR EACH OF THE NEXT TWO ITEMS, ENTER THE NUMBER 

OF ANIMALS SOLD IN THE MOST RECENT Y/.AR." 

6920 PRINT 
6930 PRINT "CATTLE" 
6940 INPUT CATTLE(l) 
6950 IF YESNO$ = "Y" THEN 7190 
6960 PRINT "POULTRY" 
6970 INPUT POULTRY(U 
6980 IF YESNO$ = "Y" THEN 7190 

6990 PRINT "GIVE THE NUMBER OF POUNDS OF MILK PRODUCED IN THE 

MOST RECENT YEAR." 
7000 INPUT MAZEWA(l) 
7010 IF YESNO$ = "Y" THEN 7190 
7020 PRINT 

7030 PRINT "GIVE THE TOTAL NUMBER OF FARMS IN YOUR COUNTY." 

7040 PRINT "REFER TO CENSUS OR BEA DATA IF NECESSARY." 

7050 INPUT SHAMBAS(l) 

7060 IF YESN0$ = "Y" THEN 7190 

7070 CLS 

7080 PRINT "FOR EACH OF THE FOLLOWING SECTORS, GIVE THE 
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7090 

7 lOO 

7 110 

7 120 

7 130 

7140 

7 150 

7 160 

7170 

7180 

7 190 

7200 

7210 

7220 

7230 

7240 

7 2 50 

7260 

7 270 

7280 

7290 

7300 

7310 

7 320 

7330 

7 340 

7350 

7360 

7 3 70 

7380 

7381 

7382 

7383 

7384 

7385 

7386 

7 390 

7400 

7410 

7420 

7430 



NUMBER EMPLOYED. BEA DATA IS 
PRINT 

PRINT "GOVERNMENT SECTOR*' 
INPUT GOVT(l) 
IF YESNO$ = "Y" THEN 
PRINT "MANUFACTURING 
INPUT MANUF(l) 
IF YESNO$ = "Y" 
PRINT "NON-FARM 
INPUT NF(1) 
IF YESNO$ = "Y" 
CLS 

REM REVIEW OF 

PRINT "CROP 



RECOMMENDED. " 



7190 
SECTOR" 



THEN 7190 
PROPRIETORS" 

THEN 7190 



"2 

"3 

"4 

"5 

"6 

"7- 

"8. 

"9< 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 

IF NOT YESNO$ = 
IF NOT YESNO$ = 
PRINT "GIVE THE 
CHANGE 



ACTUAL ANNUAL FIGURES 

FARM, & EMPLOYMENT TOTALS" 



, LIVESTOCK, 
PRINT 

" 1 .COTTON" TAB( 50 ) 

CORN FOR GRAIN" TAB(50) 

SORGHUM FOR GRAIN" TAB(50) 

SOYBEANS" TAB(50) 

HAY" TAB(50) 

WHEAT" TAB(50) 

CATTLE" TAB(50) 

POULTRY" TAB( 50 ) 

MILK" TAB(50) 

10. FARMS" TAB(50) 

1 1 . GOVERNMENT EMPLOYMENT" TAB(50) 

12 . MANUFACTURING EMPLOYMENT" TAB(50) 

13. NON-FARM PROPRIETORS" TAB(50) 



COTTON( 1 ) 
CORN( 1 ) 
SORGHUMC 1 ) 
SOYBEANSC 1 ) 
riAY( 1) 
WHEAT( 1 ) 
CATTLE( 1 ) 
POULTRYC 1 ) 
MAZEWAC 1 ) 
SHAMBAS ( 1 ) 
GOVT( 1 ) 
MANUF( 1 ) 
NF( 1 ) 



"DO YOU 
YESNO$ 



WISH TO MAKE ANY CORRECTIONS? (Y or N) 



YESNO$ = 


"YES 


" THEN YESNO$ 


_ II Y II 


YESNO$ = 




THEN 


YCSNO$ = 


II Y II 


YESNO$ = 


"yes 


" THEN YESNO$ 


_ II Y II 


YESNO$ = 


"NO" 


THEN 


YESNO$ = 


"N" 


YESNO$ = 


"n" 


THEN 


YESNO$ = 


"N" 


YESNO$ = 


"no" 


THEN 


YESNO$ =^ 


"N" 


YESNO$ = 


"Y" 


THEN 


7430 




YESNOI? = 


"N" 


THEN 


3400 





"N" THEN PRINT "YOU MUST ANSWER Y or N 
"N" GOTO 7370 

NUMBER OF THE DATA ITEM YOU WISH TO 



7440 


INPUT N0$ 








7 4 50 


IF 


N0$ = 


II II 


THEN 


67 20 


7460 


IF 


N0$ = 


II 2 M 


THEN 


6 750 


74 70 


IF 


N0$ = 


II II 


THEN 


6780 


7480 


IF 


N0$ = 


»»4 »» 


THEN 


6810 


7490 


IF 


N0$ = 


II ^ II 


THEN 


6840 


7500 


IF 


N0$ = 


"6" 


THEN 


6870 


7510 


IF 


N0$ = 


II y M 


THEN 


6930 


7520 


IF 


N0$ = 


"8" 


THEN 


6960 


7530 


IF 


NO? = 


II g II 


THEN 


6990 


7540 


IF 


N0$ = 


"10" 


THEN 


7030 
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7550 IF N0$ = »'ir» THEN 7100 

7560 IF N0$ = "12" TH£N 7130 

7570 IF N0$ = "13" THEN 7160 

7580 PRINT "YOU MUST RESPOND WITH 1-13." 

7600 PRINT "PRESS ANY KEY TO CONTINUE" 

7610 A$=iNKEY$: IF A$="" THEN 7610 

7615 GOTO 7190 

7620 REM CALCULATIONS 

76J0 NEWCOT(l) = COTTON(l) + COTTHVAC(l) 
7640 NEWCORN(l) = CORN(l) + CORNHVaC(I) 
7650 NEWSORG(l) = SORGHUMU) + SOGRHVAC(U 
7660 NEWSOY(l) = SOYBEANS(l) + SOYiiriVAC(l) 
7670 NEWHAY(l) = HAY(l) + HAYHVaCR(I) 
7680 NEWWHT(l) = WHEaT(I) + WHEAHVAC(l) 
7690 .^EWCC(l) = CATTLE(l) + CCSOLDNM(l) 
7700 NEWPOL(l) = POULTRY(l) + POLSALNM(l) 
7710 NEWMLK(l) = MAZEWA(l) + MILK(l) 
7 7 20 NEWFMS(l) = SHAMiiAS(l) + FARMS(l) 
7730 NEWGOV(l) = GOVT(l) + GOVTE(l) 
7740 NEWMAN(l) = MANUF(l) + MANUFCTE(l) 
7750 NEWNF(l) = NF(1) + NFPE(l) 

7 760 REM REPORT PRINT SINGLE OPTION 6 



7770 LPRINT DATE$ 
7780 LPRINT 

7790 LPRINT TAB(12) "EMPLOYMENT IMPACT OF CHANGES IN 

AGRICULTURE SECTOR OUTPUT*' 
7800 LPRINT TA6(7) "PLUS CHANGES IN GOVERNMENT, 

MANUFACTURING, & NONFARM EMPLOYMENT" 
7810 FOR I = 1 TO 80 : LPRINT "*";:NEXT I : LPRINT : LPRINT: 
7820 LPRINT "THIS REPORT PRODUCES ESTIMATES OF THE ECONOMIC 

IMPACT OF CHANGES IN THE AGRICULTURE 

SECTOR ON YOUR LOCAL COMMUNITY" 
7830 LPRINT 
7840 LPRINT 

7850 LPRINT TAB(35) TITLE$ 
7860 LPRINT : LPRINT 

7870 LPRINT "THIS REPORT WAS PRODUCED BY" TAB(35) USER$ 
7880 LPRINT : LPRINT 

7890 LPRINT "THE FOLLOWING IS THE INPUT DATA YOU PROVIDED:*' 
7900 LPRINT 

7910 LPRINT TAB(35) "CURRENT" TAB(50) "CHANGE" TAB(64) "NEW 
TOTAL" 

7920 LPRINT "HARVESTED ACRES OF COTTON'* TAB(35) COTTONU) 

TAB (50 ) COTTHVACC 1 ) TAB(65 ) NEWCOT( 1 ) 
7930 LPRINT "HARVESTED ACRES OF CORN" TAB(35) CORN(l) TAB(50) 

CORNHVAC(l) TAB(65) NEWC0RN(1> 
7940 LPRINT "HARVESTED ACRES OF SORGHUM" TAB(35) SORGHUM(l) 

TAB ( 50 ) SOGRHVACC i ) TAB( 65 ) NEWSORG( 1 ) 
7950 LPRINT "HARVESTED ACRES OF SOYBEANS" TAB(35) SOYBEANS(l) 

TAB (50) S0YBHVAC(1 ) TAB (65) NEWS0Y(1 ) 
7960 LPRINT "HARVESTED Av':RES OF HAY" TAB(35) HAY ( 1 ) TA6(50) 

HAYHVACR(l) TA6(65> NEWHAY(l) 
7970 LPRINT "HARVESTED ACRES OF WHEAT" TA6(35) WHEAT(l) 
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TAB(50) WHEAHVAC(l) TAB(65) NEWWHT(l) 
7980 LPRINT "NUMBER OF CATTLE AND CALVES SOLD" TAB(35) 

CATTLE(l) TAB(50) CCSOLDNM( 1 ) TAB(65) NEWCC( 1 ) 
7990 LPRINT "NUMBER OF POULTRY SOLD" TAB(i5) POULTRi(i) 

TAB(50) POLSALKM(l) TAB(65) NEWPOL( 1 ) 
8000 LPRINT "POUNDS OF MILK PRODUCED" TAB(35) MAZEWA(l) 

TAB(50) MILK(l) TAB(65) NEWMLK(l) 
8010 LPRINT "NUMBER OF FARMS IN THE COUNTY" TAB(35) 

SHAMBAS(l) TAB(50) FARMS(l) rAB(65) NEWFMS(l) 
8020 LPRINT "NUMBER OF GOVERNMENT EMPLOYEES" TAB(35) GOVT(l) 

TAB(50) GOVTE(l) TAB(65) NEWGOV(l) 
8030 LPRINT "NUMBER OF MANUFACTURING EMPLOYEES" TAB(35) 

MANUF(l) TAB(50) MANUFCTE(l) TAB(65) NEWMAN(l) 
8040 LPRINT "NUMBER OF NONFARM PROPRIETORS" TAB(35) NF(1) 

TAB(50) NFPE(l) TAB(65) NEWNF(l) 
8050 LPRINT 
8060 LPRINT 

8070 LPRINT "THE FOLLOWING ARE THE ESTIMATES YOU REQUESTED" 
8080 LPRINT " " 

8090 LPRINT USING "ESTIMATED CHANGE IN AGRICULTURAL SALES 

( 1 ,000s) $$////,//////,//////"; PS ALESd ) 
8100 LPRINT 

8110 LPRINT USING "95% CONFIDENCE INTERVAL IS 

$$//////,////// $$;/////,//////"; LCI PSALESd ) ,HCIPSALES( 1 ) 
8120 LPRINT 

8130 LPRINT USING "ESTIMATED CHANGE IN FARM PROPRIETORS 

////,//////";PFPE(l) 
8140 LPRINT 

8150 LPRINT USING "95% CONFIDENCE INTERVAL IS 
////,////// ////,////?/" ;LCIPFPE(1) ,HCIPFPE(1 ) 

8160 LPRINT 

8170 LPRINT USING "ESTIMATED CHANGE IN TOTAL EMPLOYMENT 

////,//////";PEMPLOY(l) 
8180 LPRINT 

8190 LPRINT USING "95% CONFIDENCE INTERVAL IS 

////,//#// ////,////f/";LCIPEMPLOY(l) , HC i PEMPLOY ( 1 ) 

82^0 LPRINT 

8210 LPRINT USING "ESTIMATED ADDITIONAL CHANGE IN INCOME 

( 1 ,000 s) $$//,//////,//////" ;PINCOME( 1) 

8220 LPRINT 

8230 LPRINT ^^SING "95% CONFIDENCE INTERVAL IS 

$$//,//////,////// $$//,////// "; LCI Pi NCOME( 1 ), HC I P INCOME ( 1 ) 

8240 LPRINT 
8250 GOTO 930 
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Part 2: Program Code for the Apple Macintosh Version. 



00010 


REM ~ 


VARIABLES 


DEFINED 


— 










00020 


REM — 


COT TH VAC - 


CHANGE 


IN 


HARVESTED 


ACRES 


OF 


COTTON 


00030 


REM — 


CORNHVAC - 


CHANGE 


IN 


HARVESTED 


ACRES 


OF 


CORN FOR GRAIN 


00040 


REM ~ 


SOGRHVAC - 


CHANGE 


IN 


HARVESTED 


ACRES 


OF 


SORGHUM FOR GRAIN 


00050 


REM — 


SOYBHVAC - 


CHANGE 


IN 


HARVESTED 


ACRES 


OF 


SOYBEANS 


00060 


REM ~ 


HAYHVACR - 


CHANGE 


IN 


HARVESTED 


ACRES 


OF 


HAY 


00070 


REM -- 


WHEAHVAC - 


CHANGE 


IN 


HARVESTED 


ACRES 


OF 


WHEAT FOR GRAIN 


00080 


REM ~ 


CCSOLDNM - 


CHANGE 


IN 


NUMBER OF 


CATTLE 


SOLD (OR TO BE SOLD) 


00090 


REM ~ 


POLSALNM - 


CHANGE 


IN 


NUMBER OF 


POULTRY SOLD (ALL AGES, TYPES, 



TURKEYS) 

00 100 REM ~ MILK - CHANGE IN POUNDS OF MILK SOLD 
00 110 REM — FARMS - CHANGE IN TOTAL NUMBER OF FARMS 

00120 REM GOVTE - CHANGE IN NUMBER OF PEOPLE EMPLOYED BY LOCAL, STATE, & 
FEDERAL 

00130 REM GOVERNMENTS INCLUDING MILITARY 

00140 REM ~ MANUFCTE - CHANGE IN NUMBER OF PEOPLE EMPLOYED EMPLOYED IN S.I.C. 
DEFINED 

00150 REM — MANUFACTURING SECTOR EXCLUDING PROPRIETORS 

00160 REM — NFPE - CHANGE IN NUMBER OF PEOPLE WHO ARE NON-FARM PROPRIETORS 

REGARDLESS OF 

00170 REM — 'HE SECTOR (COULD BE MANUFACTURING, RETAIL, SERVICES, ETC) 

00180 REM — EMPLOY - TOTAL COUNTY EMPLOYMENT 

00190 REM ~ PSALES - PREDICTED TOTAL AGRICULTURE SALES 

00200 REM — PFPE - PREDICTED FARM PROPRIETORS 

00210 REM — PEMPLOY - PREDICTED COUNTY EMPLOYMENT 

00220 REM — P INCOME - PREDICTED COUNTY INCOME 

00230 REM — COTTN - CURRENT TOTAL ACRES OF COTTON HARVESTED 

00240 REM — CRN - CURRENT TOTAL ACRES OF CORN HARVESTED 

00250 REM — SRGHUM - CURRENT TOTAL ACRES OF SORGHUM HARVESTED 

00260 REM — SOYBEANS - CURRENT TOTAL ACRES OF SOYBEANS HARVESTED 

00270 REM ~ HAY - CURRENT TOTAL ACRES OF HAY HARVESTED 

0028C REM — WHEAT - CURRENT TOTAL ACRES OF WHEAT HARVESTED 

002 90 REM CATTLE - CURRENT TOTAL NUMBER OF CATTLE SOLD (OR TO BE SOLD) 

00300 REM — POULTRY - CURRENT TOTAL NUMBER OF POULTRY SOLD (ALL AGES, TYPES, 

& TURKEYS) 

00310 REM — MAZEWA - CURRENT TOTAL POUNDS OF MILK SOLD 
00320 REM ~ SHAMBAS - CURRENT TOTAL NUMBER OF FARMS 

00330 REM — GOVT - CURENT TOTAL NUMBER OF PEOPLE EMPLOYED BY LOCAL, STATE, & 
FEDERAL GOVERNMENTS INCLUDING THE MILITARY 

00340 REM — MANUF - CURRENT TOTAL NUMBER OF PEOPLE EMPLOYED IN S.I.C. DEFINED 
MANUFACTURING SECTOR EXCLUDING PROPRIETORS 

00350 REM — NF - CURRENT TOTAL NUMBER OF PEOPLE WHO ARE NON-FARM PROPRIETORS 
REGARDLESS OF THE SECTOR (COULD BE MANUFACTURING, RETAIL, SERVICES, ETC) 
00360 PRINT 

00370 DIM C0TTHVAC(2) ■ 
00380 DIM CORNHVAC (2) 
00390 DIM SOGRHVAC (2) 
00400 DIM SOYBHVAC (2) 
00410 DIM HAYHVACR (2) 
00420 DIM WHEAHVAC (2) 
00430 DIM CCSOLDNM (2) 
00440 DIM POLSALNM (2) 
00450 DIM MILK(2) 
00460 DIM FARMS (2) 
00470 DIM GOVTE (2) 
00480 DIM MANUFCTE (2) 
00490 DIM NFPE (2) 
00500 DIM EMPLOY (2) 
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00510 DIM PSALES(2) 
00520 DIM PFPE(2) 
00530 DIM PEMPL0Y(2) 
00540 DIM PINC0ME(2) 
00580 DIM LCIPFPE(2) 
00590 DIM HCIPFPE(2) 
00600 DIM LCIPEMPLOY (2) 
00610 DIM HCIPEMPL0Y(2) 
00620 DIM LC1PSALES(2) 
00630 DIM HCIPSALES(2) 
00640 DIM LCIPINCOME (2) 
00650 DIM HCIPINCOME (2) 
00670 DIM COTTN(l) 
00680 DIM NEWCOT(l) 
00690 DIM NEWCRN(l) 
00700 DIM NEWSRG(l) 
00710 DIM NEWSOY(l) 
00720 DIM NEWHAY(l) 
00730 DIM NEWWHT (1) 
00740 DIM NEWCC(l) 
00750 DIM NEWPOL(l) 
00760 DIM NEWMLK(l) 
00770 DIM CRN(l) 
00780 DIM NEWFMS (1) 
00790 DIM NEWGOV(l) 
00800 DIM NEWMAN(l) 
00810 DIM NEWNF(l) 
00820 DIM Cornhvac(l) 
00830 DIM SRGHUM(l) 
00840 DIM SOYBEANS (1) 
00850 DIM HAY(l) 
00860 DIM WHEAT (1) 
00870 DIM CATTLE (1) 
00880 DIM POULTRY (1) 
00890 DIM MAZEWA(l) 
00900 DIM SHAMBAS(l) 
00910 DIM GOVT(l) 
00920 DIM MANUF(l) 
00930 DIM VOL$ (2) 
00940 DIM NF(1) 

00950 REM INTRODUCTION 



00951 PRINT " AG IMPACT MODEL " 

00960 PRINT "ESTIMATING ECONOMIC IMPACTS OF CHANGING FARM POLICIES ON RURAL 

COMMUNITIES" 

00970 PRINT " 

00980 PRINT "THIS INTERACTIVE MODEL IS DESIGNED TO PROVIDE ESTIMATED CHANGES 
IN COUNTY" 

00990 PRINT "AGRICULTURAL SALES, INCOME, AND EMPLOYMENT IN RURAL COMMUNITIES" 
01000 PRINT "WHERE AGRICULTURE PROVIDES A RELATIVELY LARGE PROPORTION (20% OR 
MORE) " 

01010 PRINT "OF THE LOCAL REVENUES. THIS ANALYSIS IS DESIGNED TO REQUIRE 
DATA" 

01020 PRINT "OBTAINABLE FROM PUBLIC SOURCES. THE COEFFICIENTS EMPLOYED ARE A" 
01030 PRINT "RESULT OF ANALYSES USING 1982 DATA FROM THE CENSUS OF 
AGRICULTURE" 

01040 PRINT "(TEXAS), THE BUREAU OF ECONOMIC ANALYSIS, AND THE TEXAS CROP AND" 
01050 PRINT "LIVESTOCK REPORTING SERVICE. THIS DATA AND SIMILAR DATA IS " 
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01060 PRINT "AVAILABLE FOR ALL SOUTHERN STATES. THE RESULTING OUTPUT 
PROVIDES" 

01070 PRINT "IMPORTAr>JT INFORi^xATION FOR LOCAL, STATE, Ai>n:) NATIONAL LEADERS AND"* 
01080 PRINT "POLICY MAKERS WITH REGARD TO COMMUNITIES WITH A SIMILAR ECONOMIC" 
01090 PRINT "BASE." 
01100 PRINT " 

OHIO PRINT "PRESS ANY KEY TO CONTINUE" 
01120 A$ = INKEY$: IF A$="" THEN 1120 
01130 CLS 
01140 V$==DATE$ 
01150 PRINT DATE$ 
01160 PRINT 
01170 PRINT TAB (25) 
01180 PRINT 
01190 PRINT 
01200 PRINT TAB (20) "1. 
01210 PRINT TAB (20) "2. 
01220 PRINT TAB (20) "3. 
01230 PRINT TAB (20) "4. 
01240 PRINT TAB (20) "5. 
01250 PRINT TAB(20)"6. 
01260 PRINT TAB (20) "7. 



"OPTIONS MENU" 



INPUT DATA & CALCULATE RESULTS" 

CHANGE DATA IN MEMORY & RECALCULATE RESULTS* 

STORE THE DATA ON THE DISKETTE?" 

RECALL DATA STORED ON DISKETTE" 

EXIT PROGRAM" 

INPUT ACTUAL CURRENT DATA" 
FILE DIRECTORY" 



01270 PRINT 

01280 INPUT "ENTER THE NUMBER OF THE OPTION YOU CHOOSE." ;NUM 
01290 CLS 



01300 IF 
01310 IF 
01320 IF 
01330 IF 



NUM 
NUM 
NUM 
NUM 



1 THEN 1390 

2 THEN 39 60 

3 THEN 6420 

4 THEN 6630 

5 THEN END 

6 THEN 72 40 

7 THEN 6930 

01370 IF NUM>7 THEN PRINT ''YOU MUST RESPOND WITH 
01380 IF NUM>7 GOTO 1130 

0 : CORNHVAC(l) 
0 : WHEAHVAC(l) 



01340 IF NUM = 
01350 IF NUM = 
01360 IF NUM = 



1-7, 



01390 COTTHVAC(l) 
01400 HAYHVACR(l) 
01410 MILK(l) = 0 
01420 C0TTHVAC(2) 

01430 HAYHVACR(2) 

01431 MILK(2) = 0 
01440 NFPE(l) = 0 



SOYBHVAC(l) = 0 
POLSALNM(l) = 0 



= 0 : SOGRHVAC(l) = 0 
= 0 : CCSOLDNM(l) = 0 
FARMS (1) = 0 : GOVTE(l) = 0 : MANUFCTE(l) = 0 
0 : Cornhvac(2) = 0 ; S0GRHVAC(2) = 0 : S0YBHVAC(2) = 0 
0 : WHEAHVAC(2) = 0 : CCS0LDNM(2) = 0 : P0LSALNM(2) = 0 
FARMS (2) = 0 : G0VTE(2) - 0 : MANUFCTE(2) = 0 
EMPLOY (1) = 0 : NFPE(2) = 0 : EMPLOY (2) = 0 : YESNO$ = "" 
01450 PRINT "WHAT TITLE WOULD LIKE TO GIVE TO THIS RUN?" 
01460 INPUT TITLE$ 

01470 PRINT "YOUR NAME IS ?" 

01480 INPUT USER$ 

01490 PRINT "DO YOU WATIT TO GIVE SINGLE NUMBER ACREAGE AND LIVESTOCK ESTIMATES 
OR RANGES? (S OR R) " 
01500 INPUT ESTYPE$ 

01510 IF ESTYPE$="S" THEN ESTYPE$="S" 
01520 IF ESTYPE$="S" 
01530 IF ESTYPE$="r" 
01540 IF ESTYPE$="R" 
01550 IF NOT ESTYPE$="R 
01560 IF NOT ESTYPE$="R 
01570 CLS 

01580 REM INPUT 

SECTION 



THEN GOTO 1570 
THEN ESTYPE$="R" 
THEN GOTO 1570 

THEN PRINT "YOU MUST RESPOND WITH AN S OR R ! " 
THEN 1490 
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01590 PRINT "In the upcoming year, do you foresee an increase or decrease (-) 
in" 

01600 PRINT "the number of harvested acres for any of these three crops?" 

01610 PRINT "1. Cotton" 

01620 PRINT "2. Corn for Grain" 

01630 PRINT "3. Sorghum far Grain" 

01640 PRINT " If so, enter the number corresponding to the crcp for which you 
foresee" 

01650 PRINT "a change. If not, simply hit the ENTER or RETURN key." 
01660 PRINT "IF YOU NEED SOME HELP, TYPE AN 'H'." 
01670 INPUT NUMBER$ 

01680 IF NUMBER$ = "H" GOTO 5970 ELSE 1690 
01690 IF NUMBERS = "" THEN GOTO 2040 

01700 IF NUMBER$ = "1" THEN PRINT "What is your estimated change in Harvested 

Acres of Cotton?" ELSE 1780 

01710 IF ESTYPE$ = "S" THEN 1760 

01720 IF ESTYPE$ = "R" THEN 1730 

01730 PRINT "LOW:" 

017 40 INPUT C0TTHVAC(2) 

01750 PRINT "HIGH:" 

017 60 INPUT COTTHVAC(l) 

01770 IF SUB$ = "Y" GOTO 3960 

01780 IF NUMBER$ = "2" THEN PRINT "What is your estimated change in Harvested 

Acres Of Corn for Grain?" ELSE 1860 

01790 IF ESTYPE$ = "S" THEN 1840 

01800 IF ESTYPE$ = "R" THEN 1810 

01810 PRINT "LOW:" 

01820 INPUT C0RNHVAC(2) 

01830 PRINT "HIGH:" 

01840 INPUT CORNHVAC(l) 

01850 IF SUB$ = "Y" GOTO 3960 

01860 IF NUMBER$ = "3" THEN PRINT "What is your estimated change in Harvested 

Acres Of Sorghum for Grain?" ELSE 1940 

01870 IF ESTYPE$ = "S" THEN 1920 

01880 IF ESTYPE$ = "R" THEN 1890 

01890 PRINT "LOW:" 

01900 INPUT S0GRHVAC(2) 

01910 PRINT "HIGH:" 

01920 INPUT SOGRHVACfl) 

01930 IF SUB$ = "Y" GOTO 3960 

01940 IF NUMBER$ > "3" THEN PRINT "YOU KUST RESPOND WITH A 1, 2, 3 OR RETURN" 
01950 IF NUMBER$ > "3" THEN GOTO 1590 

01960 PRINT "Do you foresee a change in another crop category? (Y OR N) " 
01970 INPUT YN$ 
01980 GOSUB 5890 

01? >/ IF YN$ = "Y" THEN PRINT "Type a 1 for COTTON, 2 for CORN, or 3 for 
SORGHUM" ELSE 2010 

02000 IF YN$ = "Y" THEN GOTO 1670 
02010 IF YN$ = "N" THEN GOTO 2040 

02020 IF NOT YN$="N" THEN PRINT "YOU MUST RESPOND with a Y or an N." 
02030 IF NOT YN$="N" THEN GOTO 1960 
02040 CLS 

02050 PRINT "In the upcoming year, do you foresee an increase or decrease (-) 
in the number of harvested acres for any of these three crops?" 
020 60 PRINT "4. Soybeans" 
02070 PRINT "5. Hay" 
02080 PRINT "6. Wheat" 
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02090 PRINT " If so, enter the number corresponding to the crop for which you 
foresee" 

02100 PRINT "a change. IF NOT, Simply Hit The Enter OR RETURN Key." 
02110 PRINT "IF YOU NEED SOME HELP, TYPE AN 'H'." 
02120 INPUT NUMBERS 

02130 IF NUMBERS = "H" GOTO 6040 ELSE 2140 
02140 IF NUMBERS = "" THEN GOTO 2510 

02150 IF NUMBERS = "4" THEN PRINT "What is your estimated change in Harvested 
Acres of Soybeans?" ELSE 2230 
02160 IF ESTYPES = "S" THEN 2210 
02170 IF ESTYPES = "R" THEN 2180 
02180 PRINT "LOW:" 
02190 INPUT S0YBHVAC(2) 
02200 PRINT "HIGH:" 
02210 INPUT SOYBHVAC(l) 
02220 IF SUBS = "Y" GOTO 3960 
02230 IF NUMBERS = "5" THEN PRINT 
Acres of Hay?" ELSE 2310 
02240 IF ESTYPES = "S" THEN 2290 
02250 IF ESTYPES = "R" THEN 2260 
02260 PRINT "LOW:" 
02270 INPUT HAYHVACR(2) 
02280 PRINT "HIGH:" 
02290 INPUT HAYHVACR(l) 
02300 IF SUBS = "Y" GOTO 3960 
02310 IF NUMBERS = "6" THEN PRINT 
Acres of Wheat?" ELSE 2390 
02320 IF ESTYPES = "S" THEN 2370 
02330 IF ESTYPES = "R" THEN 2340 
02340 PRINT "LOW:" 
02350 INPUT WHEAHVAC(2) 
02360 PRINT "HIGH:" 
02370 INPUT WHEAHVAC(l) 
02380 IF SUBS = "Y" GOTO 3960 



"What is your estimated change in Harvested 



"What is your estimated change in Harvested 



02390 IF NUMBERS 
02400 IF NUMBERS 
02410 IF NUMBERS 
02420 IF NUMBERS 



"6" THEN PRINT "YOU MUST RESPOND WITH A 4, 5, 6 OR RETURN" 
"6" THEN GOTO 2050 

"4" THEN PRINT "YOU MUST RESPOND WITH A 4, 5, 6 OR RETURN" 
"4" THEN GOTO 2050 

02430 PRINT "Do you foresee a change in another crop category? (Y OR N) " 
02440 INPUT YNS 
02450 GOSUB 5890 
02460 IF YNS = "Y" 



WHEAT" 
02470 
02480 

02 490 IF NOT YNS 



THEN PRINT "Type a 4 for SOYBEANS, 5 for HAY, or 6 for 



IF YNS = "Y" THEN GOTO 2120 
IF YNS = "N" THEN GOTO 2510 

"N" THEN PRINT "YOU MUST RESPOND with a 
GOTO 2430 



Y or an N." 

02500 IF NOT YNS = "N" THEN 
02510 CLS 

02520 PRINT "In the upcoming year, do you foresee an increase or decrease (-) 
in the number of livestock sold in any of the following groups?" 
02530 PRINT "7. Cattle" 

Poultry" 

enter the number corresponding to the type of livestock 
change. If not, simply hit the ENTER or RETURN key." 
02560 PRINT "IF YOU NEED SOME HELP, TYPE AN 'H'." 
02570 INPUT NUMBERS 

02580 IF NUMBERS = "H" GOTO 6100 ELSE 2590 
02590 IF NUMBERS = THEN GOTO 2880 



02540 PRINT "8, 
02550 PRINT "If so, 
for which you see a 
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02600 IF NUMBERS = "7" THEN PPINT "What is your estimated change in the number 

of Cattle sold?" ELSE 2680 

02610 IE' ESTyPE$ = "S" THEN 2660 

02620 IF ESTYPE$ = "R" THEN 2630 

02630 PRINT "LOW:" 

02640 INPUT CCS0LDNM(2) 

02650 PRINT "HIGH;" 

02660 INPUT CCSOLDNM(l) 

02670 IF SUB$ = "Y" GOTO 3960 

02680 ^F NUMBER$ = "8" THEN PRINT "What is your estimated change in the number 

of Poultry sold?" ELSE 2760 

02690 IF ESTYPE$ = "S" THEN 2740 

02700 IF ESTYPE$ = "R" THEN 2710 

02710 PRINT "LOW:" 

02720 INPUT P0LSALNM(2) 

02730 PRINT "HIGH:" 

02740 INPUT POLSALNM(l) 

02750 IF SUB$ = "Y" GOTO 3960 

02760 IF NUKBER$ > "8" THEN PRINT "YOU MUST RESPOND WITH A 7, 8 OR RETURN" 
02770 IF NUMBER$ > "8" THEN GOTO 2510 

02780 IF NUMBER$ < "7" THEN PRINT "YOU MUST RESPOND WITH A 7, 8 OR RETURN" 
02790 IF NUMBER$ < "7" THEN GOTO 2510 

02800 P.^INT "Do you foresee a change in another livestock category? (Y or N)." 
02810 xNPUT YN$ 
02820 GOSUB 5890 

02830 IF YN$ = "Y'' T^^^N PRI>:t "Type a 7 for Cattle or an 8 for Poultry," ELSE 
2850 

028^0 IF YN$ = "Y" THEN GOTO 2570 
02850 IF YN$ = "N" THEN GOTO 2880 

02860 IF NOT YN$="N" THEN PRINT "YOU MUST RESPOND with a Y or an N." 
02870 IF NOT YN$="N" THEN GOTO 2800 
02880 CLS 

02890 PRINT "Do you expect an increase or decrease (-) in the pounds of Milk 
produced?" 

02900 PRINT "If so give your estir-r/L*^id change. If not, simply hit the ENTER 
or RETURN key . " 

02910 PRINT "IF YOU NEED SOME HELP, TYPE A 'IV" 

02920 IF ESTYPE$ = "S" Tlibv^' 2990 

02930 IF ESTYPE$ = "R" THE\T 2940 

02940 PRINT "LOW:" 

02950 INPUT MILK (2) 

02960 IF MILK (2) = 0 THEN 3020 

02970 IF MILK (2) = 1 THEN 6160 

02980 PRINT "HIGH:" 

02990 INPUT MILK(l) 

03000 IF MILK(l) = 1 THEN 6lbO 

C3010 IF SUB$ = "Y" GOTO 3960 

03020 CLS 

03030 PRINT "Do you expect an increase or decrease (-) in the total number of 

Farms in your county? If so, give your estimate of the change. If not, 

simply hit the ENTER or RETURN key." 

03040 PRINT "IF YOU NEED SOME HELP, TYPE A '1'." 

03050 IF ESTYPE$ = "S" THEN 3120 

03060 IF ESTYPE$ = "R" THEN 3070 

03070 PRINT "LOW:" 

03080 INPUT FARMS (2) 

03090 IF FARMS (2) = 0 THEN 3150 

03100 IF FARMS (2) = 1 THEN 6210 



38 



03110 PRINT "HIGH:" 

03120 INPUT FARMS (1) 

03130 IF FARMS (1) = 1 THLN 6210 

03140 IF SUB$ = "Y" GOTO 3960 

03150 CLS 

03160 PRINT "Do you expect to see an increase or decrease (-) in the number of 
Government" 

03170 PRINT "Employees (locals state^ or federal) in the county in the 
upcoming yea''?" 

03180 PRINT "If so, give your estimate of the change. If not, hit RETURN OR 
ENTER. " 

03190 PRINT "IF YOU NEED SOME HELP, TYPE A '1'." 

03200 IF ESTYPE$ = "S" THEN 3270 

0321C IF ESTYPE, = "R" THEN 3220 

03220 PRINT "LOW:" 

03230 INPUT G0VTE(2) 

032 40 IF G0VTE(2) = 0 THEN 3300 

03250 IF G0VTE(2) = 1 THEN 6260 

032 60 PRINT "HIGH:" 

03270 INPUT GOVTE(l) 

032 80 IF GOVTE(l) = 1 THEN 6260 

03290 IF SUB$ = "Y" GOTO 3960 

03300 CLS 

03310 PRINT "Do you expect to see an increase or decrease (-) in the number of 
Manufacturing Sector employees? If so, give your estimate of the change. If 
not, hit RETURN or ENTER." 

03330 PRINT "IF YOU NEED SOME HELP, TYPE A '1'." 

03340 IF ESTYPE$ = "S" THEN 3410 

03350 IF ESTYPE$ = "R" THEN 3*^*60 

03360 PRINT "LOW:" 

03370 INPUT MANUFCTE(2) 

03380 IF MANUFCTE(2) = 0 THEN 3'' 40 

03390 IF MANUFCTE(2) = 1 THEN 6310 

03400 PRINT "HIGH:" 

03410 INPUT MANUFCTE(l) 

03420 IF MANUFCTE(l) = 1 THEN 6310 

03430 IF SUB$ = "Y" GOTO 3960 

03440 CLS 

03450 PRINT "Do you expect to see an increase or decrease (~) in the number of 

Non-farru Proprietors in the community? If so, give your estimate of the 

change. If not, hit RETURN or ENTER." 

03470 PRINT "IF YOU NEED SOME HELP, TYPE A '1'." 

03480 IF ESTYPE$ = "S" THEN 3550 

03490 IF ESTYPE$ = "R" THEN 3500 

03500 PRINT "LOW:" 

03510 INPUT NFPE(2) 

03520 IF NfPE(2) = 0 THEN 3580 

03530 TP MPPE(2) = 1 THEN 6370 

03540 PRINT "HIGH:" 

03550 INPUT NFPE (1) 

03560 IF NP'r^(l) ^ 1 THEN 6370 

03570 TF SUBv = "Y" GOTO 3960 

03580 CLS 

03590 REM CALCULATIONS 

03600 PSALES(l) = 0.09127476 * COTTHVAC(l) + 0.5873214 * CORNHVAC(l) + 
0.2742663 * SOGRHVAC(l) + 0. 482326 * SOYBHVAC(l) - 0.393436 * HAYHVACR(l) + 
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0.01485004 * WHEAHVAC(l) + 0.6262925 * CCSOLDNM(l) + 0.n01649475 * POLSALNM(l) 

+ 0.2164566 * MILK(l) 

00000 

03620 PSALES(2) = 0.09127476 * C0TTHVAC(2) + 0.5873214 * C0RNHVAC(2) + 
0.2742663 * S0GRHVAC(2) + 0.1482326 * S0YBHVAC(2) - 0.393436 * HAYHVACR(2) 
0.01485004 * WHEAHVAC(2) + 0.6262925 * CCS0LDNM(2) + 0.001649475 * P0LSALNM(2) 
+ 0.2164566 * MILK(2) 

03630 IF ESTYPE$ = "S" THEN PSALES (2) = 0 

03640 PFPE(l) = 0.0001737452 * PSALES(l) + 1.276869 * FARMS(l) 
03650 PFPE(2) = 0.0001737452 * PSALES(2) + 1.276869 * FARMS(2) 

03660 PEMPLOY(l) = NFPE(l) * 1.4073 + MANUFCTE(l) * 1.0327 + GOVTE(i.) * 4.3432 
+ PSALES(l) * 0.0018418 

03670 PEMPL0Y(2) = NFPE(2) * 1.4073 + MANUFCTE(2) * 1.0327 + G0VTE(2) * 4.3432 
+ PSALES (2) * 0,0018418 

03680 PINCOME(l) = 18.47682 * PEMPLOY(l) + 0.000000012 6313 * (PEMPLOY(l) 3) 
03690 PINC0ME(2) = 18.47682 * PEMPL0Y(2) + 0.000000012 6313 * (PEMPL0y(2) 3) 

03700 IF ESTYPE$ = "S" THEN PINC0ME(2) = 0 

03701 REM —CONFIDENCE INTERVAL 1.9 6 * 2.0308 = 3.98 — 
03710 LCIPFPE(l) = PFPE(l) - 4 

03720 LCIPFPE(2) = PFPE(2) - 4 
03730 HCIPFPE(l) = PFPE(l) + ^ 

03740 HCIPFPE(2) = PFPE (2) + 4 

03741 REM ~ CONFIDENCE INTERVAL 1.96*1.8162 = 3.56 
03750 LCIPSALES(l) = PSALES (1) - 4 

03760 LCIPSALES(2) = PSALES (2) - 4 

03770 IF ESTYPE$ = "S" THEN LCIPSALES(2) = 0 

03780 HCIPSALES(l) = PSALES (1) + 4 

03790 HCIPSALES(2) = PSALES (2) + 4 

03800 IF ESTYPE$ = "S" THEN HCIPSALES(2) = 0 

03801 REM — CONFIDENCE INTERVAL 1 . 96 * 0.5151 = 1.01 — 
03810 LCIPEMPLOY(l) = PEMPLOY(l) - 1 

03820 LCIPEMPL0Y(2) = PEMPL0Y(2) - 1 

03830 IF ESTYPE$ = "S" THEN LCIPEMPLOY ( 2 ) = 0 

03840 HCIPEMPLOY (1) = PEMPLOY(l) + 1 

03850 HCIPEMPT0Y(2) = PEMPL0Y(2) + 1 

03860 IF ESTYPE$ = "S" THEN HCIPEMPLOY (2) = 0 

03861 REM ~ CONFIDENCE INTERVAL 1.96 * 650.49 = 1,274.96 
03870 LCIPINCOME (1) = PINCOME(I) - 1275 

03880 LCIPINCOME (2) = PINC0ME(2) - 1275 
03890 IF ESTYPE$ = "S" THEN LCIPINCOME (2) = 0 
03900 HCIPINCOME (1) = PINCOME(l) + 1275 
03910 HCIPINCOME (2) = PINCOME(2) + 1275 
03920 IF ESTYPE$ = "S" THEN HCIPINCOME (2) = 0 
03930 IF SUB$ = "N" THEK 44 80 
03940 IF YESi>IO$ = "N" THEN 4480 

03950 REM SCREEN REVIEW OF INPUT & OUTPUT 



03960 SUB$ = 
03970 YESNO$ = 
03980 CLS 

03990 PRINT "ESTIMATED CHANGES FOR THr. COMING YEAR" 
04000 PRINT " 

04010 PRINT "1. HARVESTED ACRES OF COTTON" TAB (50) C0TTHVAC(2) TAB (70) 
COTTHVAC (1) 

04020 PRINT "2. HARVESTED ACRES OF CORN" TAB(50) C0RNHVAC(2) TAB(70) 
CORNHVAC (1) 

0^030 PRINT "3. HARVESTED ACRES OF SORGHUM" TAB(50) S0GRHVAC(2) TAB(70) 
SOGRHVAC (1) 
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04040 PRINT 
SOYBHVACa) 
04050 PRINT 
HAYHVACRd) 
^4060 PRINT 
iAB(70) WHEAHVACd) 
04070 PRINT 
CCSOLr M(l) 
0408v; PRINT 
POLSALNM(l) 
04090 PRINT 
04100 PRINT 
FARMS (1) 
04110 PRINT 
GOVTE(l) 
04x20 PRINT 
MANUFCTE(l) 
04130 PRINT 



"4. HARVESTED ACRES OF SOYBEANS" TAB (50) S0YBHVAC(2) TAB (70) 

*'5. HARVESTED ACRES OF HAY" TAB (50) HAYHVACR(2) TAB (70) 

"6. HARVESTED ACRES OF HARVESTED WHEAT" TAB(50) WHEAHVAC(2) 

"7. NUMBER OF CATTLE AND CALVES SOLD" TAB (50) CCS0LDNM(2) TAB (70) 

"8. NUMBER OF POULTRY SOLD" TAB (50) P0LSALNM(2) TAB (70) 



"9. POUNDS 
"10 .NUMBER 



OF MILK PRODUCED" TAB (50) MILK (2) TAB (70) MILK(l) 
OF FARMS IN THE COUNTY" TAB (50) FARMS (2; TAB (70) 



04140 
04150 
04160 
04170 
04180 
04190 
04200 
04210 
04220 
04230 
04240 
04250 
04260 
04270 
04280 
04290 
04300 
04310 
04320 
04330 
04340 
04350 
04360 
04370 
04380 
04390 
04400 
04410 
04420 
04430 
04440 
04450 
04460 
04470 
04480 
04490 
04500 
04520 
04530 



PRINT 
PRINT 
INPUT 
IF 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



"11. NUMBER OF GOVERNMENT EMPLOYEES" TAB (50) G0VTE(2) TAB (70) 

"12. NUMBER OF MANUFACTURING EMPLOYEES" TAB (50) MANUFCTE(2) TAB (70) 

"13. NUMBER OF NONFARM PROPRIETORS" TAB (50) NFPE(2) TAD (70) NFFE(l) 

"DO YOU WISH TO MAKE A^JY CORRECTIONS? (Y or N) ," 
SUB$ 

"YES" THEN SUB$ ^- "Y" 
"yes" THEN SUB$ = "Y" 
"y" THEN SUB$ = * Y" 
"Y" THEN 4270 
"NO" THEN SUP$ = ' N" 



PRINT 
INPUT 



SUB$ = 
SUB$ = 
SUB$ = 
SUB$ = 
SUB$ = 
SUB$ = 
SUB$ = 
SUB$ = 
NOT SUB$ = 
NOT SUB$ = 
"GIVE THE 
NUMBER$ 



"no' 

"n" 

"N" 



THEN SUB$ = "N" 
THEN SUB$ = "N" 
THEN 3580 

"N" PRINT "YOU MUST RESPOND WITH 8S or No - 
"N" GOTO 4150 

NUMBER OF THE INPUT YOU WISH TO CHANGE." 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



NUMBER$ 
NUMBER$ 
NUMBER$ 
NUMBER$ 
NUMBER$ 
NUMBER$ 
NUMBER$ 
NUMBER$ 
NUMBER$ 
NUMBER$ 
NUMBER$ 
NUMBER$ 
NUMBER$ 
NUMBER$ 
NUMBER$ 



PRINT "PRESS 



II 2^ II 
II 2 " 
II 3 II 

n ^ II 
II 5 II 

II 'J II 

II 3 II 
II g II 

"10" 
"11" 
"12" 
"13" 
•13" 
"13" 
ANY 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



1700 
1780 
1860 
2150 
2230 
2310 
2600 
2680 
2890 
3030 



THEN 3160 
th*?:n 3310 
THEN 3450 

PRINT "YOU MUST RESPOND WITH A 1 - 13, 
GOTO 3980 
KEY TO CONTINUE" 



A$=INKEY$: IF A$="" THEN 4450 

IF ESTYPE$ ^ "S" THEN PINC0ME(2) =• 0 

PRINT 

LET A$="$#*#####" 
LET B$="#####*" 
PRINT 

PRINT "THE FOLLOWING ARE THE ESTIMATES YOU REQUESTED' 
PRINT : PRINT 
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04540 PRINT "ESTIMATED CHANGE IN AGRICULTRUAL SALES"; TAB (36) /USING 
A$ ; PSALES (2) ; TAB(60);uSING A$/?SALES{i) 
04550 PRINT 

04560 PRINT "95% CONFIDENCE INTERVAL IS"; TAB (32 ); USING A$;LCIPSALES (2) ; 
TAB(42) ;USING A$ ; HCIPSALES (2 ) ; TAB (55) ;USING A$ ; LCIPSALES ( 1 ) ; TAB (65) ;USING 
A$;HCIPSALES (1) 
04570 PRINT 

04580 PRINT "ESTIMATED CHANGE IN FARM PROPRIETORS"; TAB (40) ;USING 
B$;PFPE(2); TAB ( 60 ); USING B$;PFPE(1) 
04590 PRINT 

04600 PRINT "95% CONFIDENCE INTERVAL IS"; TAB (32 ); USING B$ ; LCIPFPE (2) ; 
TAB(44) ;USING B$ ; HCIPFPE (2 ) ; TAB (56) ; USING B$ ; LCIPFPE ( 1 ) ; TAB ( 65) ; USING 
B$;HCIPFPE (1) 
04610 PRINT 

04620 PRINT "ESTIMATED CHANGE IN TOTAL EMPLOYMENT"; TAB (40) ;USING 
B$;PEMPL0Y(2) ; TAB (60) ;USING B$;PEMPLOy (1) 
04630 PRINT 

04640 PRINT "95% CONFIDENCE INTERVAL IS"; TAB (32) ;USING B$ ; LCIPEMPLOY (2 ) ; 
TAB(44) ;USING B$ ; HCIPEMPLOY (2 ) ; TAB (56) ; USING B$ ; LCIPEMPLOY ( 1 ) ; TAB (1 5) ;USING 
B$;HCIPEMPL0Y(1) 
04650 PRINT 

04660 PRINT "ESTIMATED ADDITIONAL CHANGE IN INCOME"; TAB (37) ;USING 
A$;PINC0ME(2) ; TAB ( 60 ); USING A$;PINCOME (1) 
04670 PRINT 

04680 PRINT "95% CONFIDENCE INTERVAL IS"; TAB (32) /USING A$ ; LCIPINCOME (2 ) ; 
TAB(42) ;USING A$ ; HCIPINCOME (2 ) ; TAB ( 53) ; USING A$ ; LCIPINCOME ( 1) ; TAB ( 65 ) ;USING 
A$;HCIPINCOME (1) 
04690 PRINT 

04700 PRINT "DO YOU WISH TO PRINT THIS REPORT? (Y cr N) " 
04710 INPUT YN$ 
04720 GOSUB 5890 

04730 IF YN$ = "Y" THEN GOTO 4750 ELSE 4770 
04750 IF ESTYPE$ = "S" GOTO 4800 
04760 IF ESTYPE$ = "R" GOTO 5350 
04770 IF YN$ = "N" THEN 1130 

0 4780 IF NOT YN$ = "N" THEN PRINT "YOU MUST RESPOND with a Y or an N." 
04790 IF NOT YN$ = "N" THEN GOTO 4700 

04800 REM REPORT PRINT (SINGLE) 



04810 IF NUM = 6 THEN 8170 
04820 IF SHAMBAS(1)>0 THEN 8170 
04830 LPRINT DATE$ 
04840 LPRINT 

04850 LPRINT TAB (15) "EMPLOYMENT IMPACT OF CHANGES IN AGRICULTURE SECTOR 
OUTPUT" 

04860 FOR I == 1 TO 85 : LPRINT "*";:MEXT I : LPRINT : LPRINT: 

04870 LPRINT TAB (15) "THIS REPORT PRODUCES ESTIMATES OF THE ECONOMIC IMPACT" 
04880 LPRINT TAB (12) "OF CHANGES IN THE AGRICULTURE SECTOR ON YOUR LOCAL 
COMMUNITY" 
04890 LPRINT 
04900 LPRINT 

04910 LPRINT TAB(35) TITLE$ 
04920 LPRINT : LPRINT 

04930 LPRINT "THIS REPORT WAS PRODUCED BY:" TAB (35) USER$ 
04940 LPRINT : LPRINT 

04 950 LPRINT "THE FOLLOWING IS THE INPUT DATA YOU PROVIDED:" 
04960 LPRINT 

04970 LPRINT "HARVESTED ACRES OF COTTON" TAB (50) COTTHVAC(l) 
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04980 
04990 
05000 
05010 
05020 
05030 
05040 
05050 
05060 
05070 
05080 
05090 
05100 
05110 
05120 
05130 
05140 
05150 
05160 
05170 



LPRINT 



"HARVESTED 
"HARVESTED 
"HARVESTED 
"HARVESTED 
"HARVESTED 
"NUMBER OF 
"NUMBER 
"POUNDS 
"NUMBER 
"NUMBER 
"NUMBER 
"NUMBER 



LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 

LET A$="$#######" 
LET B$="######" 
LPRINT 

LPRINT "THE FOLLOWING 
LPRINT : LPRINT 
LPRINT "ESTIMATED CHANGE 



CORN" TAB (50) CORNHVAC(l) 
SORGHUM" TAB (50) SOGRHVAC(l) 
SOYBEANS" TAB (50) SOfBHVAC(l) 
HAV TAB (50) HAYHVACR(l) 
WHEAT" TAB (50) WHEAHVAC(l) 



OF 
OF 
OF 
OF 
OF 
OF 



ACRES OF 
ACRES OF 
ACRES OF 
ACRES OF 
ACRES OF 

CATTLE AND CALVES SOLD" TAB (50) CCSOLDNM(l) 
POULTRY SOLD" TAB (50) POLSALNM(l) 
MILK PRODUCED" TAB (50) MILK(l) 
FARMS IN THE COUNTY" TAB (50) FARMS (1) 
GOVERNMENT EMPLOYEES" TAB(50) GOVTE (1) 
MANUFACTURING EMPLOYEES" TAB (50) MANUFCTE (1) 
NONFARM PROPRIETORS" TAB (50) NFPE(l) 



ARE THE ESTIMATES YOU REQUESTED:' 



IN AGRICULTRUAL SALES"; TAB ( 50 ); USING 



A$;PSALES (1) 
05180 LPRINT 
05190 LPRINT 



TAB (43) ;USING A$; LCIPSALES (1) 



TAB (52) /USING 



(in thousands) 
"95% CONFIDENCE INTERVAL IS"; 
TAB(58) ;USING A$; HCIPSALES ( 1) 
05200 LPRINT : LPRINT 

05210 LPRINT "ESTIMATED CHANGE IN FARM PROPRIETORS"; 
B$;PFPE (1) 
05220 LPRINT 

05230 LPRINT "95% CONFIDENCE INTERVAL IS"; TAB (43) ;USING B$; LCIPFPE ( 1) 
TAB (60) ; USING B$; HCIPFPE (1) 
05240 LPRINT : LPRINT 

05250 LPRINT "ESTIMATED CHANGE IN TOTAL EMPLOYMENT"; TAB ( 52 ) ; US ING 

B$;PEMPL0Y(1) 

05260 LPRINT 

05270 LPRINT "95% CONFIDENCE INTERVAL IS"; TAB (43) ;USING B$; LCIPEMPLOY 
TAB (60) ; US ING B$; HCIPEMPLOY (1) 
05280 LPRINT : LPRINT 

05290 LPRINT "ESTIMATED ADDITIONAL CHANGE IN INCOME"; TAB ( 50 ); USING 
A$;P INCOME (1) 

05300 LPRINT " (in thousands) 

05310 LPRINT "95% CONFIDENCE INTERVAL IS"; 
TAB (58) ; US ING A$; HCIP INCOME (1) 
05320 LPRINT 
05330 CLEAR LPRINT 
05340 GOTO 1130 

05350 REM REPORT PRINT (RANGE)- 



TAB (43) ;USING A$;LCIPINCOME (1) 



05360 LPRINT DATE$ 
05370 LPRINT 

05380 LPRINT TAB (20) "THE IMPACT ON EMPLOYMENT OF CHANGES IN AGkICULTURE 
OUTPUT" 

05390 LPRINT TAB (15) "PLUS CHANGES IN GOVERNMENT MANUFACTURING, & NONFARM 
EMPLOYMENT" 

05400 FOR I = 1 TO 90 : LPRINT "*";:NEXT I : LPRINT : LPRINT: 

05410 REM "THIS REPORT PRODUCES ESTIMATES OF THE ECONOMIC IMPACT OF CHANGES IN 
THE AGRICULTURE SECTOR ON YOU LOCAL COMMUNITY" 
05420 LPRINT 
05430 LPRINT 
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05440 LPRINT TAB (35) TITLE$ 
05450 LPi^IxN'T : LPRINT 

05460 LPRINT "THIS REPORT WAS PRODUCED BY:" TAB (35) USER$ 
05470 LPRINT : LPRINT 

05480 LPRINT "THE FOLLOWING IS THE INPUT' DATA YOU PROVIDED:" 
05490 LPRINT 

05500 LPRINT TAB (50) "LOW:" TAB (70) "HIGH:" 

05510 LPRINT "HARVESTED ACRES OF COTTON" TAB (50) C0TTHVAC(2; TAB (70) 
COTTHVAC (1) 

05520 LPRINT "HARVESTED ACRES OF CORN" TAB (50) C0RNHVAC(2) TAB (70) CORNHVAC(l) 
05530 LPRINT "HARVESTED ACRES OF SORGHUM" TAB (50) S0GRHVAC(2) TAB (70) 
SOGRHVAC(l) 

05540 LPRINT "HARVESTED ACRES OF SOYBEANS" TAB (50) S0YBHVAC(2) TAB (70) 
SOYBHVACC) 

05550 LPRIWT "HARVESTED ACRES OF HAY" TAB (50) HAYHVACR(2) TAB (70) HAYHVACR(l) 
05560 LPRINT "HARVESTED ACRES OF V7HEAT" TAB (50) WHEAHVAC(2) TAB (70) 
WHEAHVAC (1) 

05570 LPRINT "NUMBER OF CATTLE AND CALVES SOLD" TAB (50) CCS0LDNM(2) TAB (70) 
CCSOLDNM(l) 

05580 LPRINT "NUMBER OF POULTRY SOLD" TAB (50) P0LSALNM(2) TAB(70) POLSALNM(l) 

05590 LPRINT "POUNDS OF MILK PRODUCED" TAB (50) MILK (2) TAB (70) MILK(l) 

05600 LPRINT "NUMBER OF FARMS IN THE COUNTY" TAB (50) FARMS (2) TAB (70) FARMS (1) 

05610 LPRINT "NUMBER OF GOVERNMENT EMPLOYEES" TAB (50) G0VTE(2) TAB (70) 

GOVTE (1) 

05620 LPRINT "NUIIBER OF MANUFACTURING EMPLOYEES" TAB (50) MANUFCTE(2) TAB (70) 
MANUFCTE (1) 

05630 LPRINT "NUMBER OF NONFARM PROPRIETORS" TAB (50) NFPE(2) TAB (70) NFPE(l) 

05640 LPRINT 

05650 LPRINT 

05660 LET A$="$#######" 

05670 LET B$="######" 

05680 LPRINT 

05690 LPRINT "THE FOLLOWING ARE THE ESTIMATES YOU REQUESTED:" 
05700 LPRINT : LPRINT 

05710 LPRINT "ESTIMATED CHANGE IN AGRICULTRUAL SALES"; TAB ( 40 ); USING 
A$;PSALES (2) ; TAB ( 63) /USING A$;PSALES(1) 
05720 LPRINT " (in thousands) 

05730 LPRINT "95% CONFIDENCE INTERVAL IS"; TAB (35) ; USING A$ ; LCIPSALES (2) ; 
TAB(45) ;USING A$;HCIPSALES (2) ; TAB (55) ;USING A$;LCIPSALES (1) ; TAB ( 65) ; USING 
A^;HCIPSALES (1) 
05740 LPRINT : LPRINT 

05750 LPRINT "ESTIMATED CHANGE IN FARM PROPRIETORS"; TAB ( 41) ; USING 
B$;PFPE(2); TAB (64) ;USING B$;PFPE(1) 
05760 LPRINT 

05770 LPRINT "95% CONFIDENCE INTERVAL IS"; TAB (3 6) ; USING B$ ; LCIPFPE (2) ; 

TAB(48) ;USING B$ ;HCIPFPE (2) ; TAB (58) ;USING B$;LCIPFPE (1) ; TAB ( 69) ; USING 

B$;HCIPFPE(1) 

05780 LPRINT : LPRINT 

05790 LPRINT "ESTIMATED CHANGE IN TOTAL EMPLOYMENT"; TAB (41) ;USING 
B$;PEMPLOY (2) ; TAB (64) ;USING B$;PEMPLOY (1) 
05800 LPRINT 

05810 LPRINT "95% CONFIDENCE INTERVAL IS"; TAB (36) ;USING B$ ; LCIPEMPLOY (2) ; 
TAB (48) ;USING B$ ;HCIPEMPLOY (2) ; TAB (58) ;USING B$;LCIPEMPLOY (1) ; TAB ( 69 ); USING 
B$;HCIPEMPL0Y(1) 
05820 LPRINT : LPRINT 

05830 LPRINT "ESTIMATED ADDITIONAL CHANGE IN INCOME"; TAB (41) ; USING 
A$;PINC0ME(2) ; TAB (63) ;USING A$;PINCOME (1) 
05840 LPRINT " (in thousands) 



05850 LPRINT "95% CONFIDENCE INTERVAL IS"; TAB (35) ;USING A$ ; LCIPINCOME (2 ) ; 
TAB{47) 7USING A$;HCIPINCOiME (2) ; TAB (55) ;USING A$; LCIPINCOME (1) ; TAB ( G5) ; USING 
A$;HC IP INCOME (1) 
05860 LPRINT 
05870 CLEAR LPRINT 
05880 GOTO 1130 

05390 IF YN$ = "YES" THEN YN$ ^ "Y" 
05900 IF YN$ = "yes" THEN YN$ = "Y" 
05910 IF YN$ = "y" THEN YN$ = "Y" 
05920 IF YN$ = "NO" THEN YN$ = "N" 
05930 IF YN$ = "no" THEN YN$ = "N" 
05940 IF YN$ = "n" THEN YN$ = "N" 
05950 RETURN 

05960 REM HELP WITH DEFINITION OF VARIABLES 

05970 PRINT 

05980 PRINT "Harvested acres refers only to the number of acres a<^cually 
harvested not the number planted. If more than one crop per year is 
harvested, count both harvests to derive the annual total," 

05990 PRINT "Corn and sorghum for grain refers to crops harvested for the 
grain and do not include sweet corn and crops for hay & silage," 
06000 PRINT 

06010 PRINT "PRESS ANY KEY TO CONTINUE," 
06020 A$=INKEY$: IF A$="" THEN 6020 
06030 GOTO 1570 

06040 PRINT : PRINT"Harvested acres refers only to the number of acres 
actually harvested not the number planted. If more than one crop per year 
is harvested, count both harvests to derive the annual total," 

06060 PRINT 

06070 PRINT "PRESS ANY KEY TO CONTINUE," 
06080 A$=INKEY$: IF A$="" THEN 6080 
06090 GOTO 2040 

06100 PRINT : PRINT "The 'number of cattle sold' refers to all types of cattle 
- cows, calves, bulls, dairy, etc," 

06110 PRINT "The 'number of poultry sold' refers to all types and ages of 
poultry excluding eggs - fryers, broilers, pullets, etc," 
06120 PRINT 

06130 PRINT "PRESS ANY KEY TO CONTINUE," 
06140 A$=INKEY$: IF A$="" THEN 6140 
06150 GOTO 2510 

06150 PRINT : PRINT "The 'pounds of milk' to refers milk production as 
measured by the Texas Crop & Livestock Reporting Service in 'Agricultural 
Statistics' ," 
06170 PRINT 

06180 PRINT "PRESS ANY KEY TO CONTINUE." 
06190 A$=INKEY$: IF A$="" THEN 6190 
06200 GOTO 2880 

06210 PRINT: PRINT "The 'number of farms' refers to any kind of farm, where 
farm is defined according to the Census of Agriculture definition." 

06220 PRINT 

0 6230 PRINT "PRESS ANY KEY TO CONTINUE," 
06240 A$=INKEY$: IF A$="" THEN 6240 
06250 GOTO 3020 

06260 PRINT: PRINT "The 'number of government employees' is the total local, 
state, and federal government employees, including military, as defined by 
the Bureau of Economic Analysis," 

06270 PRINT 

06280 PRINT "PRESS ANY KEY TO CONTINUE." 
06290 A$==INKEY$: IF A$="" THEN 6290 
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06300 GOTO 3150 

06310 PRINT: PRINT "The 'number of manufacturing employees* means the number 
of people employed in the Standard Industrial Code 'manufacturing' sector and 
corresponds " 

06320 PRINT "to the Bureau of Economic Analysis definition which does not 
include manufacturing proprietors . " 

06330 PRINT 

06340 PRINT "PRESS ANY KEY TO CONTINUE." 
06350 A$=INKEY$: IF A$="" THEN 6350 
06360 GOTO 3300 

06370 PRINT:PRINT "The 'number of non-farm proprietors' refers to proprietors 
of businesses in all sectors whether they be retail, wholesale, manufacturing, 
finance, insurance, real estate, construction, or other." 
06380 PRINT 

06390 PRINT "PRE3S ANY KEY TO CONTINUE." 
06400 A$=INKEY$: IF A$="" THEN 6400 
06410 GOTO 3440 

06420 PRINT "ENTER THE NAME UNDER WHICH YOU WOULD LIKE TO SAVE THE DATA AND 

CALCULATIONS" 

06430 INPUT STORE$ 

06440 REM DATA AND CALCULATIONS SAVED 

06450 OPEN "O", 1, STORE$ 

06460 WRITE #1, TITLE$;25, USER$;25, ESTYPE$;1 

06470 WRITE #1, COTTHVAC (1) , CORNHVAC(l), SOGRHVAC(l), SOYBHVAC(l), HAYHVACR(l) 
06480 WRITE #1, COTTHVAC (2) , C0RNHVAC(2), S0GRHVAC(2), S0YBHVAC(2), HAYHVACR(2) 
06490 WRITE #1, WHEAHVAC ( 1) , CCSOLDNM(l), POLSALNM(l), MILK(l) 
06500 WRITE #1, WHEAHVAC (2) , CCS0LDNM(2), P0LSALNM(2), MILK (2) 

06510 WRITE #1,FARMS(1), GOVTE(l), MANUFCTE(l), NFPE(l), EMPLOY(l), PSALES (1) 
06520 WRITE #1, FARMS (2), G0VTE(2), MANUFCTE(2), NFPE(2), EMPLOY (2), PSALES (2) 
06530 WRITE #1,PFPE(1), PEMPLOY(l), PINCOME(l) 
06540 WRITE #1,PFPE(2), PEMPL0Y(2), PINC0ME(2) 

06550 WRITE #1, LCIPFPE (1) , LCIPFPE(2), HCIPFPE(l), HCIPFPE(2) 
06560 WRITE #1, LCIPEMPLOY (1) , HCIPEMPLOY(l) 
06570 WRITE #1, LCIPEMPLOY (2) , HCIPEMPLOY (2) 

06530 WRITE #1,C0TTN(1), CRN(l), SRGHUM(l), SOYBEANS (1) , HAY(l), WHEAT(l) 
06590 WRITE #1, CATTLE (1) , POULTRY(l), MAZEWA(l), SHAMBAS (1) , GOVT(l), MANUF(l) 
06600 WRITE #1 , ImF ( \) , NUM 
06610 CLOSE 1 
06620 GOTO 1130 

06630 PRINT "ENTER THE NAME UNDER WHICH THE DATA WAS STORED." 
06640 INPUT FNAME$ 

06650 COTTHVAC (1) = 0 : CORNHVAC(l) = 0 : SOGRHVAC(l) = 0 : SOYBHVAC(l) = 0 

06660 HAYHVACR(l) = 0 : WHEAHVAC(l) = 0 : CCSOLDNM(l) = 0 : POLSALNM(l) - 0 

06670 MILK(l) = 0 : FARMS (1) = 0 : GOVTE(l) = 0 : MANUFCTE(l) = 0 

06680 COTTHVAC (2) = 0 : C0RNHVAC(2) = 0 : S0GRHVAC(2) = 0 : S0YBHVAC(2) = 0 

06690 HAYHVACR(2) = 0 : WHEAHVAC(2) = 0 : CCS0LDNM(2) = 0 : P0LSALNM(2) =0 

06700 MILK (2) = 0 : FARMS (2) = 0 : G0VTE(2) = 0 : MANUFCTE(2) = 0 

06710 COTTN(1)=0 : CRN(1)=0 : SRGHUM(1)=0 : SOYBEANS (1) =0 : HAY(1)=0 

06720 WHEAT (1)=0 : CATTLE (1)=0 : POULTRY (1)=0 : MAZEWA(1)=0 : SHAMBAS(1)=0 

06730 GOVT(1)=0 : MANUF(1)=0 : NF(1)=0 

06740 REM INPUT DATA AND CALCULATIONS FROM DISKETTE 

06750 OPEN "I", 1, FNAME$ 

06760 READ #1, TITLE$/25, USER$/25, ESTYPE$/1 

06770 READ #1, COTTHVAC (1) , CORNHVAC(l), SOGRHVAC(l), SOYBHVAC(l), HAYHVACR(l) 
06780 READ #1, COTTHVAC (2) , C0RNHVAC(2), S0GRHVAC(2), S0YBHVAC(2), HAYHVACR(2) 
067 90 READ #1, WHEAHVAC (1) , CCSOLDNM(l), POLSAT .^M( 1) , MILK(l) 
06800 READ #1, WHEAHVAC (2) , CCS0LDNM(2), P0LSA.NM(2), MILK (2) 

06810 READ #1,FARMS(1), GOVTE(l), MANUFCTE(l), NFPE(l), EMPLOY(l), PSALES (1) 
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06820 READ #1, FARMS (2), G0VTE(2), MANUFCTE(2), NFPE(2), EMPLOY (2), PSALES(2) 
06830 READ *1,PFPE(1), PEMPLOY(l), PINCOHE(l) 
06840 READ #1,PFPE(2), PEMPL0Y(2), PINC0ME(2) 

06850 READ #1, LCIPFPE ( 1) , LCIPFPE(2), HCIPFPE(l), HCIPFPE(2) 
06860 READ #1, LCIPEMPLOY ( 1 ) , HCIPEMPLOY ( 1) 
06870 READ #1, LCIPEMPLOY (2 ) , HCIPEMPLOY (2) 

06880 READ #1,C0TTN (1) , CRN (1) , SRGHUM (1) , SOYBEANS (1) , HAY (i) .WHEAT (1) 
06890 READ #1, CATTLE (1) , POULTRY (1) ,MAZEWA(1) , SHAMBAS (1) ,G0VT(1) ,MANUF(1) 
06900 READ #1,NF(1),NUM 
06910 CLOSE 1 
06920 GOTO 3960 

06930 CLEAR lOOOO : L=0 : L2=0 
06940 FOR 1=1 TO 100 
06950 A$=FILES$(-I,"",,V%) 
06960 LONG IF V%=0 OR A$="" 

06970 1=100 :REM QUIT LOOKING FOR ROOT VOLUMES 
06980 XELSE 
06990 PRINT 

07000 XFS$=FILES$ (-9999, V%) 

07010 PRINTSTRING$ (30, "*") ; "FILE SYSTEM ";XFS$;" " ; STRING$ ( 30, ) 
07020 PRINT "PATH NAME STRTNG$ (56-POS (0) ,".").: "FILE NAME" 
07030 INDEX$(L)=A$ : L=L+1 : L2=L 
07040 DO 

07050 IF L > L2 THEN L2=L2+1 : A$=VOL$ (L2-1) 
07060 FOR J=l TO 100 
07070 TRONX 

07080 B$=FILES$ (-J, "",A$,V%) :REM GET FOLDERS/FILES IN ROOT A$ 
07090 LONG IF B$="" 
07100 J=100 
07110 XELSE 

07120 PRINT A$;STRING$(56-POS(0),".") ;B$ 

07130 X$=RIGHT$ (B$, 1) 

07140 LONG IF X$-" : " 

07150 INDEX$ (L)=A$+B$ : L=L+1 

07160 ENDIF 

07170 ENDIF 

07180 NEXT 

07190 UNTIL L2 >= L 

07200 ENDIF 

07210 NEXT : PRINT 

07230 INPUT "PRESS ENTER TO RETURN TO THE MENU";S$ : GOTO 1130 

07231 REM INPUT OF ACTUAL CROP AND LIVESTOCK PRODUCTION 

07240 PRINT "FOR EACH OF THE FOLLOWING DATA ITEM, PROVIDE THE MOST RECENT 
NUMBER OF ACRES HARVESTED." 

07250 PRINT "IF YOU DO NOT KNOW OR YOU WANT TO ENTER A ZERO, JUST PRESS ENT^R 

OR RETURN-" 

07260 PRINT 

07270 PRINT "COTTON" 

07280 INPUT COTTN(l) 

07290 IF YESNO$ = "Y" THEN 7740 

07300 PRINT "CORN FOR GRAIN" 

07310 INPUT CRN(l) 

07320 IF YESNO$ = "Y" THEN 7740 

07330 PRINT "SORGHUM FOR GRAIN" 

07340 INPUT SRGHUM(l) 

07350 IF YESNO$ = "Y" THEN 7740 

07360 PRINT "SOYBEANS" 
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07370 INPUT SOYBEANS (1) 

07380 IF YESNO? = "Y" THEN 7740 

07390 PRINT "HAY" 

07400 INPUT HAY(l) 

07410 IF YESNO$ = "Y" THEN 7740 

07420 PRINT "WHEAT" 

07 430 INPUT WHEAT (1) 

07440 IF YESNO$ = "Y" THEN 7740 

07450 CLS 

07460 PRINT "FOR EACH OF THE NEXT TWO ITEMS, ENTER THE NUMBER OF ANIMALS SOLD 

IN THE MOST RECENT YEAR." 

07470 PRINT 

074 80 PRINT "CATTLE" 

07490 INPUT CATTLE (1) 

07500 i'F YESNO$ = "Y" THEN 7740 

07510 PRINT "POULTRY" 

07520 INPUT POULTRY (1) 

07530 IF YESNO$ = "Y" THEN 7740 

07540 PRINT "GIVE THE NUMBER OF POUNDS OF MILK PRODUCED IN THE MOST RECENT 
YEAR." 

07550 INPUT MAZEWA(l) 

07560 IF YESNO$ = "Y" THEN 7740 

07570 PRINT 

07580 PRINT "GIVE THE TOTAL NUMBER OF FARMS IN YOUR COUNTY." 

07590 PRINT "REFER TO CENSUS OR BEA DATA IF NECESSARY." 

07600 INPUT SHAMBAS(l) 

07610 IF YESNO$ = "Y" THEN 7740 

07620 CLS 

07630 PRINT "FOR EACH OF THE FOLLOWING SECTORS, GIVE THE NUMBER EMPLOYED. BEA 
DATA IS RECOMMENDED." 
07640 PRINT 

07650 PRINT "GOVERNMENT SECTOR" 

07 660 INPUT GOVT(l) 

07670 IF YESNO$ = "Y" THEN 7740 

07 630 PRINT "MANUFACTURING SECTOR" 

07690 INPUT MANUF(l) 

07700 IF YESNO$ = "Y" THEN 7740 

07710 PRINT "NON-FARM PROPRIETORS" 

07720 INPUT NF(1) 

07730 IF YESNO$ = "Y" THEN 7740 

07740 CLS 

07750 REM REVIEW OF ACTUAL ANNUAL FIGURES 

07760 PRINT "CROP, LIVESTOCK, FARM, & EMPLOYMENT TOTALS" 
07770 PRINT : PRINT 
07780 PRINT "I.COTTON" 



TAB (50) COTTN(l) 



07790 PRINT 



2. CORN FOR GRAIN 



TAB (50) 



CRN(l) 
07800 PRINT 



3. SORGHUM FOR GRAIN 



tt 



TAB (50) SRGHUM(l) 



07810 PRINT 



tt 



4. SOYBEANS" 



TAB (50) SOYbi-ANS(l) 



07020 PRINT 



It 



5 . HAY" 



TAB (50) HAY(l) 



ERIC 
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07830 PRINT "6. WHEAT" 
07 840 PRINT "7. CATTLE" 
07850 PRINT "8. POULTRY" 
TAB (50) POULTRY (1) 
07860 PRINT "9. MILK" 
TAB (50) MAZEWA(l) 
07870 PRINT "10. FARMS" 

07880 PRINT "11 .GOVERNMENT EMPLOYMENT" 

TAB (50) GOVT(l) 
"12. MANUFACTURING EMPLOYMENT" 
"13. NON-FARM PROPRIETORS" 



TAB (50) 
TAB (50) 



WHEAT (1) 
CATTLE (1) 



TAB (50) SH;^JMBAS(1) 



07890 
07900 
07910 
07920 
07930 
07931 
07932 
07933 
07934 
07935 
07936 
07940 
079d0 
07960 
07970 
07980 
07990 
08000 
08010 
08020 
08030 
08040 
08050 
08060 
08070 
08080 
08090 
08100 
08110 
08120 
08130 
08140 
08150 
08160 
08170 
08180 
08190 
08200 
08210 
08220 
08230 
08240 
08250 
08260 
08270 
08280 
08290 
08300 
08310 



PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF 



TAB (50) 
TAB (50) 



MANUF (1) 
NF(1) 



"DO YOU WISH TO MAKE ANY CORRECTIONS?" (Y or N) 
YESNO$ 

"YES" 



YESNO$ 
IF YESNO$ 
IF YESNO$ 
IF YESNO$ 
IF YESNO$ = "no 
IF YESNO$ = "n" 
IF YESNO$ = "Y" 
IF YESNO$ = "N" 
IF NOT YESNO$ = 
IF NOT YESNO$ = 
"GIVE THE 
N0$ 



THEN YESNO$ = "Y" 
"yes" THEN YESNO$ = "Y" 
"y" THEN YESNO$ = "Y" 
"NO" THEN YESNO$ = "N" 



' THEN YESNO$ = "N" 
THEN YESNO$ = "N" 
THEN 7980 
THEN 3580 

"N" THEN PRINT "YOU MUST ANSWER Y or N." 
"N" GOTO 7 920 

NUMBER OF THE DATA ITEM YOU WISH TO CHANGE, 



"YOU MUST RESPOND WITH 1-13.' 



PRINT 
INPUT 

IF N0$ = "1" THEN 7270 
IF N0$ = "2" THEN 7300 
IF N0$ = "3" THEN 7330 
IF N0$ = "4" THEN 7360 
IF N0$ = "5" THEN 7390 
IF N0$ = "6" THEN 7420 
IF NOC - "7" THEN 7480 
IF N0$ = "8" THEN 7510 
IF N0$ = "9" THEN 7540 
IF N0$ ^ "10" THEN 7580 
IF N0$ = "11" THEN 7 650 
IF N0$ = "12" THEN 7680 
IF N0$ = "13" THEN 7710 
IF N0$ > "13" THEN PRINT 
IF N0$ > "13" GOTO 7740 
PRINT "PRESS ANY KEY TO CONTINUE" 
A$=INKEY$: IF A$="" THEN 8160 

REM REM CALCULATIONS- 

NEWCOT(l) = COTTN(l) + COTTHVAC(l) 
NEWCRN(l) = CRN(l) + Cornhvac(l) 
NEWSRG(l) = SRGHUM(l) + SOGRHVAC(l) 
NEWSOY(l) = SOYBEANS (1) + SOYBHVAC(l) 
NEWHAY(l) = HAY(l) + HAYHVACRd) 
NEWWHT(l) = WHEAT (1) + WHEAHVAC(l) 
NEWCC(l) = CATTLE (1) + CCSOLDNM(l) 
NEWPOL(l) = POULTRY (1) + POLSALNM(l) 
NEV:MLK(1) = MAZEWA(l) + MILK(l) 
NEWFMS(l) = SHAMBAS(l) + FARMS (1) 
NEWGOV(l) = GOVT(l) + GOVTE(l) 
NEWMAN (1) = MANUF (1) + MANUFCTE(l) 
NEWNF(l) = NF(1) + NFPE(l) 
REM REPORT PRINT 



SINGLE OPTION 6- 



ERLC 
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08320 LPRINT DATE$ 
08330 LPRINT 

08340 LPRINT TAB (12) "EMPLOYMENT INPACT OF CHANGES IN AGRICULTURE SECTOR 
OUTPUT" 

08350 LPRINT TAB (7) "PLUS CHANGES IN GOVERNMENT, MANUFACTURING, & NONFARM 
EMPLOYMENT" 

08360 FOR I = 1 TO 85 : LPRINT "*"; :NEXT I : LPRINT : LPRINT: 

08370 LPRINT TAB(15)"THIS REPORT PRODUCES ESTIMATES OF THE ECONOMIC IMPACT" 

08380 LPRINT TAB (12) "OF CHANGES IN AGRICULTURE SECTOR ON YOUR LOCAL 

COMMUNITY" 

08390 LPRINT 

08400 LPRINT 

08410 LPRINT TAB(35) TITLE$ 
03420 LPRINT : LPRINT 

08430 LPRINT "THIS REPORT WAS PRODUCED BY" TAB (35) USER$ 
08440 LPRINT : LPRINT 

08450 LPRINT "THE FOLLOWING IS THE INPUT DATA YOU PROVIDED:" 
08460 LPRINT 

08470 PRINT TAB (35) "CURRENT" TAB (50) "CHANGE" TAB(6^_) "NEW TOTAL" 

08480 LPRINT "HARVESTED ACRES OF COTTON" TAB(35) COTTN(l) TAB(50) COTTHVAC(l) 

TAB (65) NEWCOT(l) 

08490 LPRINT "HARVESTED ACRES OF CORN" TAB(35) CRN(l) TAB(50) Cornhvac(l) 
TAB (65) NEWCRN(l) 

08500 LPRINT "HARVESTED ACRES OF SORGHUM" TAB (35) SRGHUM(l) '"AB(50) 
SOGRHVAC(l) TAB (65) NEWSRG(l) 

08510 LPRINT "HARVESTED ACRES OF SOYBEANS" TAB(35) SOYBEANS (1) TAB(50) 
SOYBHVAC(l) TAB (65) NEWSOY(l) 

08520 LPRINT "HARVESTED ACRES OF HAY" TAB(35) HAY(l) TAB(50) HAYHVACR(l) 
TAB (65) NEWHAY(l) 

08530 LPRINT "HARVESTED ACRES OF WHEAT" TAB (35) WHEAT (1) TAB (50) WHEAHVAC(l) 
TAB (65) NEWWHT(l) 

08540 LPRINT "NUMBER OF CATTLE AND CALVES SOLD" TAB(35) CATTLE (1) TAB(50) 
CCSOLDNM(l) TAB (65) NEWCC(l) 

08550 LPRIl T "NUMBER OF POULTRY SOLD" TAB(35) POULTRY(l) TAB(50) POLSALNM(l) 
TAB (65) NEWPOL(l) 

08560 LPRINT "POUNDS OF MILK PRODUCED" TAB(35) MAZEWA(l) TAB(50) MILK(l) 
TAB (65) NEWMLK(l) 

08570 LPRINT "NUMBER OF FARMS IN THE COUNTY" TAB (35) SHAMBAS (1) TAB (50) 
FARMS (1) TAB(65) NEWFMS(l) 

08580 LPRINT "NUMBER OF GOVERNMENT EMPLOYEES" TAB(35) GOVT(l) TAB(50) GOVTE(l) 
TAB (65) NEWGOVd) 

08590 LPRINT "NUMBER OF MANUFACTURING EMPLOYEES" TAB(35) MANUF(l) TAB(50) 
MANUFCTE(l) TAB ( 65) NEWMAN ( 1 ) 

08600 LPRINT "NUMBER OF NONFARM PROPRIETORS" TAB (35) NF(1) TAB (50) NFPE(l) 

TAB (65) NEWNF(l) 

08610 LPRINT 

08620 LPRINT 

08630 LET A$="$#####4#" 

08640 LET B$="######" 

08650 LPRINT 

08660 LPRINT "THE FOLLOWING ARE THE ESTIMATES YOU REQUESTED:" 
08670 LPRINT : LPRINT 

08680 LPRINT "ESTIMATED CHAt^GE IN AGRICULTRUAL SALES"; TAB (50) /USING 
A$; PS ALES (1) 

08690 LPRINT " (in thousands) 

08700 LPRINT "'95% CONFIDENCE INTERVAL IS"; TAB ( 43) ; USING A$ ; LCIPSALES (1) / 
TAB (58) /USING A$ ; HCIPSALES ( 1 ) 
08710 LPRINT : LPRINT 
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08720 LPRINT "ESTIMATED CHANGE IN FARM PROPRIETORS"; TAB (52 ) /USING 

B$;PFPE(1) 

08730 LPRINT 

08740 LPRINT "95% CONFIDENCE INTERVAL IS"; TAB (43) /USING B$; LCIPFPS (1) ; 
TAB(60) ;USING B$;HCI?FPE (1) 
08750 LPRINT : LPRINT 

08760 LPRINT "ESTIMATED CHANGE IN TOTAL EMPLOYMENT"; TAB (52 ) ;USING 

B$;PEMPLOy(l) 

08770 LPRINT 

08780 LPRINT "95% CONFIDENCE INTERVAL IS"; TAB (43) ;USING B$; LCIPEMPLOY ( 1) 
TAB(60) ;USING B$ ; HCIPEMPLOY ( 1 ) 
08790 LPRINT : LPRINT 

08800 LPRINT "ESTIMATED ADDITIONAL CHANGE IN INCOME"; TAB ( 50 ) ; US ING 
A$; P INCOME (1) 

08810 LPRINT " (in thousands) 

08820 LPRINT "95% CONFIDENCE INTERVAL IS"; TAB ( 43) ; USING A$ ; LCI P INCOME ( 1) 

TAB(58) ;USING A$ ; HCIP INCOME ( 1 ) 

08830 LPRINT 

0 8840 CLEAR LPRINT 

08850 GOTO 1130 



5 ; 



Appendix C 



fc«/xCliilplw v/i Olll^iw k.1 lit I 



04-11-1938 



ESTIMATED IMPACT OF CHANGES IN AGRICULTURAL OUTPUT ON 
RURAL COUNTY AGRICULTURAL SALES, EMPLOYMENT AND INCOME 



COUNTY 

THIS REPORT WAS PRODUCED BY JONES 

THE FOLLOWING IS THE INPUT DATA YOU PROVIDED: 



HARVESTED ACRES OF COTTON -500 

HARVESTED ACRES OF CORN 0 

HARVESTED ACRES OF SORGHUM 0 

HARVESThU ACRES OF SOYBEANS 0 

HARVESTED ACRES OF HAY 0 

HARVESTED ACRES OF WHEAT -1CO0 

NUMBER OF CATTLE AND CALVES SOLD 500 

NUMBER OF POULTRY SOLD 0 

POUNDS OF MILK PRODUCED 2000 

NUMBER OF FARMS IN THE COUNTY -3 

NUMBER OF GOVERNMENT EMPLOYEES 0 

NUMBER OF MANUFACTURING EMPLOYEES 0 

NUMBER OF NONFARM PROPRIETORS 0 



ERIC 



THE FOLLOWING ARE THE ESTIMATES YOU REQUESTED: 

ESTIMATED CHANGE IN AGRICULTURAL SALES (1,000s) $686 

95% CONFIDENCE INTERVAL IS $682 $690 

ESTIMATED CHANGE IN FARM PROPRIETORS -4 

95% CONFIDENCE INTERVAL IS -8 0 

ESTIMATED CHANGE IN TOTAL EMPLOYMENT 1 

95% CONFIDENCE INTERVAL IS 0 2 

ESTIMATED ADDITIONAL CHANGE IN INCOME (1,000s) $23 

95% CONFIDENCE INTERVAL IS -$1,252 $1,298 
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Appendix D 



Example of Range Entry Report 

04-11-1988 

ESTIMATED IMPACT OF CHANGES IN AGRICULTURAL OUTPUT ON 
RURAL COUNTY AGRICULTURAL SALES. EMPLOYMENT AND INCOME 



COUNTY 

THIS REPORT WAS PRODUCED BY JONES 

THE FOLLOWING IS THE INPUT DATA YOU PROVIDED: 
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HARVESTED ACRES OF COmON 
HARVESTED ACRES OF CORN 
HARVESTED ACRES OF SORGHUM 
HARVESTED ACRES OF SOYBEANS 
HARVESTED ACRES OF HAY 
HARVESTED ACRES OF WHEAT 
NUMBER OF CATTLE AND CALVES SOLD 
N!JMBER OF POULTRY SOLD 
POUNDS OF MILK PRODUCED 
NUMBER OF FARMS IN THE COUNTY 
NUMBER OF GOVERNMENT EMPLOYEES 
NUMBER OF MANUFACTURING EMPLOYEES 
NUMBER OF NONFARM PROPRIETORS 

THE FOLLOWING A^E THE ESTIMATES YOU REQUESTED 

ESTIMATED CHANGE IN AGRICULTURAL SALES (1,000s) 

95% CONFIDENCE INTERVAL IS 

ESTIMATED CHANGE IN FARM PROPRIETORS 

95% CONFIDENCE INTERVAL IS 

ESTIMATED CHANGE IN TOTAL EMPLOYMENT 

95% CONFIDENCE INTERVAL IS 

ESTIMATED ADDITIONAL CHANGE IN INCOME (1,000s) 

95% CONFIDENCE INTERVAL IS 



LOW: 
-600 
0 

-400 
100 
0 

-1100 
400 
0 

1900 
-4 
0 
0 
4 



$496 
$492 

-9 



HIGH: 
-400 
0 

-200 
300 
0 

-900 
600 
0 

2100 
-2 
0 
0 
6 

$770 



$499 


$767 


$774 


-5 


-2 




-1 


•6 


2 


7 




10 


8 


9 


11 


$121 


$182 





-$1,154 $1,396 -$1,093 $1,457 
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Example of Option 6 "Single Entry" Report 

04-11-1988 

ESTIMATED IMPACT OF CHANGES IN AGRICULTURAL OUTPUT ON 
RURAL COUNTY AGRICULTURAL SALES. EMPLOYMENT AND INCOME 



COUNTY 

THIS REPORT WAS PRODUCED BY JONES 

THE FOLLOWING IS THE INPUT DATA YOU PROVIDED: 





r>l lOOCMT 

UUHHtN 1 


O LJ A M ^ r 

UHANCaE 


NEW TUTAL 


HARVFSTFD APPF9 OF PnTTTiM 


oUUU 


-500 


4500 


HARVF^TFn APRFQ OF PnPM 


898 


0 


898 


MAPV/PQTPn APDPQ OP OPSDOUI \KA 
riMriVtlO 1 CU MOntO Ur oUnonUM 


5062 


0 


5062 


HARVESTED ACRES OF SOYBEANS 


0 


n 


0 


HARVESTED ACRES OF HAY 


10153 


0 


10153 


HARVESTED ACRES OF WHEAT 


19765 


-1000 


18765 


NUMBER OF CATTLE AND CALVES SOLD 


11478 


500 


11978 


NUMBER OF POULTRY SOLD 


112200 


0 


112200 


POUNDS OF MILK PRODUCED 


20400 


2000 


22400 


NUMBER OF FARMS IN THE COUNTY 


413 


-3 


410 


NUMBER OF GOVERNMENT EMPLOYEES 


530 


0 


530 


NUMBER OF MANUFACTURING EMPLOYEES 


701 


0 


701 


NUMBER OF NONFARM PROPRIETORS 


548 


0 


548 


THE FOLLOWING ARE THE ESTIMATES YOU REQUESTED: 






ESTIMATED CHANGE IN AGRICULTURAL 
SALES (1,000s; 




$636 




95% CONFIDENCE INTERVAL IS 


$682 




$690 


ESTIMATED CHANGE IN FARM 
PROPRIETORS 




-4 




95% CONFIDENCE INTERVAL IS 


-8 




0 


ESTIMATED CHANGE IN TCTAL 
EMPLOYMENT 




1 




95% CONFIDENCE INTERVAL IS 


0 




2 


ESTIMATED ADDITIONAL CHANGE I^J 
INCOME (1,000s) 




$23 




95% CONFIDENCE INTERVAL IS 


-$1,252 




$1,298 




The SRDC Is one of four regional rural development 
centers m the nation. It coordinates cooperation 
between the Research (Experiment Station) and 
Extension (Cooperative Extension Service) staffs at 
land-grant institutions in the South to provide tech- 
nical consultation, research, training, and evaluation 
services for rural developnnent. This publication is one 
of several published by the Center on various needs, 
program thrusts, and research efforts in rural develop- 
ment. For more information about SRDC activities 
and publications, write to the Director. 




Southern Rural Development Center 
Box 5446 

Mississippi State, MS 39762 



The Sout*^ern Rural Development Center is an Equal Opportunity Organization providing reseaich, e ucationaf infoimatiOn. and 
other services only to individuals and institutions that function without regard to race, color, relig ^ex, national oi igm, ago, 
handicap, or Vietnam era veteran status. SRDC is an Equal Opportunity Employer. 
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